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General Information 

The Corvus Concept System Library User Guide is a reference guide 
for Corvus Concept Library support. This guide is not a 
tutorial. Readers should be familiar with Pascal programming 
concepts. 

This guide briefly describes the functions and procedures found 
in the Corvus Libraries. Some of the functions and procedures 
are meant to be used by advanced programmers. When this is the 
case, this guide refers to one of the Corvus technical reference 
manual s. 



About CCLIB 



The CCLID. OBJ library file contains support units and subroutines 
for the Corvus Concept in a Pascal environment. 

To use CCLIB, units must be declared in the USES section of the 
program. In a program, this section appears immediately after 
the program heading. In a unit, this section appears immediately 
after the interface heading. 

7he format of the uses section is as follows: 

USES <*U /VolName/CCLIB> ccDEFN, Oth erUni tNames; 

For example, if CCLIB is in a volume named CCUTIL and the unit 
being used is ccCRTio, then the uses section would look like 

this: 

USES -C*U /CCUTIL/CCLIB* ccDEFN, ccCRTio; 

If another library or unit in a separate file is being used along 
with CCLIB, the volume and file name where this can be found must 
be specified: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccCRTio, 
<*U /KLLVOL/MUSIO Sounds; 

When using units in CCLIB, unit ccDEFN must be declared before 
other units, if it is needed. Other CCLIB units may be declared 
in any order. In the above example for instance, ccCRTio could 
not be declared before ccDEFN. 
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The order of units in library CCLIB is as follows: 

ccDEFN - Global definitions 

ccHEXOUT - Output hexadecimal numbers 

ccLNGINT - Long integer manipulations 

ccCLKio - Clock control unit 

ccCRTio - Display control unit 

ccDCPio - DataComm/Pr inter control unit 

ccDIRio - Directory control unit 

ccGRFio - Graphics display unit 

ccLBLio - Function key label unit 

ccOMNio - Umninet interface unit 

ccDTCio - Omninet Transporter interface unit 

ccWNDio - Window control unit 

TurtleGraph ic & - Turt 1 eGrap h i c s unit 



About C21.II3 



The C2LII3. OBJ library file contains units related to the Corvus 
disk controller. Included in this library is a unit to 
communicate directly with the Corvus disk controller, a unit to 
interface with the disk controller pipe commands, and a unit to 
interface with the disk controller semaphore commands. 

When linking programs that use units from C2LIB, libraries must 
be specified in the order shown in this example: 

LINKER - MC68000 Object Code Linker n. n dd-mmm-yy 

(C) Copyright 19B2 Silicon Valley Software. Inc. 

Listing file - <return> - no listing file 

Output file - pgmname - executable program name 

Input file C. OBJ1 - pgmname - output of Pascal compiler 
Input file C. OEJ3 - /CCUTIL/C2LIB - Concept disk unit library 
Input file C. OBJ] - /CCUTIL/CCLIB - Concept Pascal library 
Input file C. OBJ3 - IPASLIB - system Pascal library 
Input file C.OBJ3 - <return> - end of input files 
Linking segment ' ' 

Initial memavail - nnnnnn 

Final memavail = nnnnnn 

The output is executable. 
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The Support Units 

CCLIB contains three support units which are used by other units. 
Each unit is described below. 



ccDEFN Unit 



The Corvus Concept Global Definitions Unit defines system-wide 
constants and data structures. 

The ccDEFN unit USES no other units. Several others units use 
ccDEFN. 

The unit is included in user software by declaring: 

USES -C»U /CCUTIL/CCLIB> ccDEFN; 



ccDEFN Unit Constants 

Constants defined in ccDEFN are: 



Corvus Concept I/O Result Codes 
I Identifier I Value ! Description 



1 


IOok 


i 


00 


1 

1 


Good result* no error 




1 


IOEinvdev 


■ 


02 


f 
1 


Invalid unit number/invalid 


device 


1 
1 


IOEioreq 




03 


1 
1 


Invalid I/O request 




1 
1 


IOEnebhrd 


i 


04 


1 
1 


Nebulous hardware error 




1 
t 


IOEoff In 


■ 


OS 


1 

1 


Drive off line 





(continued on next page) 
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Corvus Concept I/O Result Codes (continued) 



! Identifier 
I IOEwrprot 



Value ! Description 

16 I Device write protected 






I IOEseek 



17 i Seek error 



! IOEinvblk 



18 I Invalid block number 



! IOEnotrn 



21 ! Transporter not ready 



I IOEtimot 



22 ! Timed out waiting for Omninet event 



IOEnobuf 



23 i Read without a valid write buffer 



IOEflpto 



24 ! Timeout error 



IOEnoTO 



25 i Cannot restore to track 



IDEnfmtd 



26 ! Disk not formatted 



IOEinvsct 



27 ! Invalid sector length error 



IOEwrngC 



28 i Read wrong track 



IQEbdtrk 



29 ! Track marked as bad (IBM spec) 



IOEquereq. 



30 i Queued request warning 



IOEwndfn 



32 i Invalid window function 



IOEwndbe 



33 ! Window create boundary 



IOEwndcs 


1 


34 


! 


Invalid character set 




IOEwnddc 


1 
1 


35 


i 
i 


Delete current window 




IOEwndds 


1 
I 


36 


■ 
i 


Delete system window 




IOEwndiw 


1 
1 


37 




Inactive window 




IOEwndwr 


1 
1 


36 


i 
i 


Invalid window record 




IOEwndwn 


1 

t 


39 


i 
* 


Invalid system window 


number 



(continued on next page) 
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Corvus Concept I/O Result Codes (continued) 



1 Identifier i Value ! Description ! 

I IOEnodsp i 40 ! Display driver not available i 

+ + + + 

I IOEnokyb I 41 I Keyboard driver not available .' 

+ + + + 

I IOEnotim ! 42 ! Timer driver not available ! 



I IOEnoomn 



43 I OMNINET driver not available 



IOEnoprt 



44 



Printer driver not available 



IOEnf drv 



45 



No floppy drive at slot 



IOEnodtc 



46 



DataComm driver not available 



IOEtblid 



50 



Invalid table entry ID 



IOEtblfl 



51 



Table full 



IOEtbliu 



52 



Table entry in use 



IOEkybte 



53 



Keyboard transmission error 



i IOEuiopm 



54 



Invalid unit I/O parameter 



IOEprmln 



55 



Invalid parameter block length 



IOEfnccd 



56 



Invalid function code 



IOEclkmf 



57 



Clock (hardware) malfunction 



IOEirdsbl 



60 



Input to read buffer disabled 



I IOEordsbl 



61 



Output to read buffer disabled 



i IOEiudsbl 



62 



Input to write buffer disabled 



! IOEoudsbl 



63 



Output to write buffer disabled 



! IOEbszerr 



64 



Buffer size error 



IOEu/szerr 



65 



Write size error 



I IOErszerr I 

+ +- 



66 



Read size error 



(continued on next page) 
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Corvus Concept I/O Result Codes (continued) 



! Identifier I Value t Description 

i IOEuarter ! 67 i UART hardware error 



EISSBBBE-f 



t IOEpaderr 



68 ! Proportional spacing error 



IOEdrvTO 



70 ! Corvus drive time out 



IOEbadcmd 



71 ! Invalid Corvus disk command 



IOEsvrdrv 



72 ! Severe Corvus disk hardware problem 



! IQEtrnpdt 

+ 



73 ! Error in Transporter command block 

+ 



Miscel laneous 
! Identifier ! Value ! Description ! 

4.rssszssssssa+sssBZBB+BssraEsnBBXxs>assBEZEBaBasaKSBCSsBSBS+ 

! MaxWindow ! 20 ! Maximum number of system windows ! 

+ + + + 

! SysComPLoc ! *0180 i System common pointer location i 

+ + + + 

! LongStrMax i 1030 ! Maximum "long" string length ! 

H + +. + 



September 1, 1983 



Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library 
Support Units 



ccDEFN 
Page 2-5 



ccDEFN Unit Types 

Data types defined in ccDEFN are: 



I Data Type 



i Definition 



= ses=eS3KS:k + 



c= = + 



1 Byte 


I -128. . 


127i 


i Bytes 


! array 


CO. . 327663 of Byte; 


! Words 


! array 


CO. . 327663 of integer; 



1 String32 I stringC323» 


1 String64 i stringC643; 


i String80 ! stringCB03; 


I pBy te ! '"•Byte; 


! pBytes ,' ^Bytes; 


i pWords ! ^Words; 


1 pString32 ! A String32; 


! pString64 ! A String64; 


1 pStringSO ! ~String80; 



Copyright 1983 Corvus Systems, Inc. 



September 1, 1983 



ccDEFN 
Page 2-6 



Corvu* Concept Pascal System Library 

Support Units 



I Data Type i Description 

i SlotType ! Device types for Concept I/O slots 



MSBBSE-f 



1 NoDisk ! 1 No disk 


i LocalDisk ! 1 1 Corvu s local disk 


! OmninetDisk ! 2 ! Corvus Omninet disk server 


! FlpyCBDisk ! 3 ! Corvus 8" SSSD floppy disk 


1 FlpyC5Disk • 4 \ ...reserved 


! FlpyA5Disk ! 5 ! Apple 5" floppy disk 


i BankDisk ! 6 ! . . . reserved 


I FlpyF8Disk ! 7 ! Corvus 8" DSDD floppy disk 


! FlpyFSDisk ! 8 ! Corvus 5" DSDD floppy disk 


! FlpyF3Disk 1 9 ! . . . reserved 



ccDEFN Unit Variables 

Variables defined in ccDEFN are: 
None. 



ccDEFN Unit Functions and Procedures 

Procedures defined in ccDEFN are: 

None. 

Functions defined in ccDEFN are: 

None. 
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ccHEXOUT Unit 



The Output Hexadecimal Numbers Unit is used for displaying 
hexadecimal data. Normally, this unit is only needed during 
system development. 

The ccHEXOUT unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccHEXOUT; 

ccHEXOUT Unit Constants 

Constants defined in ccHEXOUT are: 
None. 

ccHEXOUT Unit Types 

Data types defined in ccHEXOUT are: 
None. 

ccHEXOUT Unit Variables 

Variables defined in ccHEXOUT are: 
None. 
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ccHEXOUT Unit Functions and Procedures 
Procedures defined in ccHEXOUT are: 



+==: 



ISSXS+I 



I Procedure 



BSS==S5«+«»ssass* 



! ccHEXinit 



I PutHexByte 



i PutHexWord 



PutHexLong 



Description 



Unit initialization 



Output byte in hex 



Output integer in hex 



Output long integer in hex 



! DumpHex ! Dump memory in hex bytes 

+ + 



Functions defined in ccHEXOUT are: 
None. 



ccHEXinit Procedure 



ccHEXinit initializes the ccHEXOUT unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccHEXinit; 

An example of this procedure is: 

ccHEXinit; 
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PutHexBgte Procedure 



PutHexByte writes to the current OUTPUT device (usually the 
display screen) the hexadecimal equivalent of the specified byte 
value. The definition of this procedure is: 

PROCEDURE PutHexByte (Bvalue: byte); 

1 Parameter { Data Type ! Description ! 

I Bvalue I byte I Byte value to display 

+ + + + 

The procedure outputs 2 hexadecimal characters. 

An example of this procedure is: 

var b: byte; 

b : = 32; 

PutHexByte (b); write (' '); PutHexByte <b*2); 

The output generated is "20 40". 
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PutHexWord Procedure 



PutHexWord writes to the current OUTPUT device (usually the 
display screen) the hexadecimal equivalent of the specified 
integer value. The definition of this procedure is: 

PROCEDURE PutHexWord (Wvalue: integer); 

I Parameter ! Data Type 1 Description ! 

+ BBJB==IB!asaS«BB!aiBt+BSB!BBBB=iaBatBtBSatBIBi«B« + B"»«="SB!BiBIBIBiBI«Ba»BtB««i«iBtHIB!Bt«IB«BI«««««ia«B!BIS!=aS5 + 

i Wvalue i integer i integer value to display I 

+ + + + 

The procedure outputs 4 hexadecimal characters. 

An example of this procedure is: 

var i: integer; 

i : = 32; 

PutHexWord (i); write (' '); PutHexWord <i*2>; 

The output generated is "0020 0040". 
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PutHexLong Procedure 

PutHexLong writes to the current OUTPUT device (usually the 
display screen) the hexadecimal equivalent of the specified long 
integer value. The definition of this procedure is: 

PROCEDURE PutHexLong (Lvalue: longint); 

I Parameter ! Data Type I Description ! 

I Lvalue I long integer I Long integer value to display ! 

+ + + + 

The procedure outputs 8 hexadecimal characters. 

An example of this procedure is: 

var li: longint; 

li : = 32; 

PutHexLong (li); write (' '); PutHexLong (li*2>; 

The output generated is "00000020 00000040". 
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DumpHex Procedure 



DumpHex writes to the current OUTPUT device (usually the display 
screen) a byte hex dump. The definition of this procedure is: 

PROCEDURE DumpHex <BufPtr: pBytesj Len: integer); 

I Parameter ! Data Type ! Description 

i BufPtr ! pBytes I Dump buffer pointer 



! Len ! integer ! Length of buffer to dump 

+ + + 

The procedure outputs a byte hex dump of memory pointed to by 
BufPtr for Len hytes. 

In the following program DumpHex is used to dump 200 bytes 
starting at location *700. 

program hextst; 

uses -C*U /CCUTIL/CCLIB> ccDEFN. ccHEXOUT; 

var p: pBytes; 

beg in 

ccHEXinit; 

p : = pointer <*700); 

DumpHex (p. 200); 

writeln; writeln; 

end. 

The output of this program is: 

05 00 00 00 00 00 00 00 00 00 00 00 00 38 00 00 

00 00 00 00 00 01 11 30 00 01 11 90 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 01 OD 4E 00 08 D5 5E 00 08 A4 90 00 00 00 00 

00 00 02 CF 02 2F 00 7E 00 82 00 OE 00 00 02 2F 

00 1C 00 24 00 60 00 00 00 00 00 00 00 00 00 00 

00 00 03 00 00 02 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 
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ccLNGINT Unit 



The Long integer Manipulations Unit is used to assemble and 
disassemble integers and long integers 

The ccLNGINT unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccLNGINT; 

ccLNGINT Unit Constants 

Constants defined in ccLNGINT are: 
None. 

ccLNGINT Unit Types 

Data types defined in ccLNGINT are: 
None. 

ccLNGINT Unit Variables 

Variables defined in ccLNGINT are: 
None. 
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ccLNGINT Unit Functions and Procedures 

Procedures defined in ccLNGINT are: 

I Procedure ! Description ! 

i ByteLInt i Convert bytes to long integer ! 

+ + + 

i Byte2Int j Convert bytes to integer ! 

+ + + 

Functions defined in ccLNGINT are: 

i Function ! Description I 

+ SS8SE:SEEEESS5E:BEK:EiaE:4-a:EEB:3IEflESBCESBSBeESBflVStBISIKEIEES:SIBIEBEESBSSSESEEBEBElBIBSa;s:ES3CESESSSS:B:S;SEBS + 

! LIntByte ! Get byte value from long integer ! 

+ + + 

! Int2Byte ! Get byte value from integer ! 

+ + + 



September 1, 1983 Copyright 1983 Corvus Systems. Inc. 



Corvus Concept Pascal System Library 
Support Units 



ccLNGINT 
Page 2-15 



ByteLInt Procedure 



ByteLInt places four bytes into the specified long integer. The 
definition of this procedure is: 

PROCEDURE ByteLInt (VAR Num: longint; 

ByteO> Bytel. Byte2i Byte3: byte); 

i Parameter i Data Type ! Description 

I Num i long integer ! Long integer result ! 



! ByteO 

+ 

! Bytel 



i byte 

-+ 

i byte 



! Byte of long integer (MSB) ! 

•+ • + 

I Byte 1 of long integer i 



i Byte2 

+ 

! Byte3 



i byte 

-+ 

! byte 

-+ 



I Byte 2 of long integer 

-h 

! Byte 3 of long integer 

.+ 



bO 


= *12; 


bl 


= *34; 


b2 


= *56; 


b3 


= *78i 



ByteLInt ( 1 i, bO, b 1. b2, b3) ; 
After this code is executed* li contains *12345678. 



+ 

( LSB ) i 

1- 



The procedure constructs a long integer from four bytes. 
An example of this procedure is: 

var li: longint; b0iblib2ib3: byte; 
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Byte2Int Procedure 



ByteSInt places two bytes into the specified integer. The 
definition of this procedure is: 

PROCEDURE Byte2Int (VAR Num: integer; ByteO, Bytel: byte); 



! Parameter i Data Type i Description 
! Num ! integer I integer result 



! ByteO I byte i Byte of integer (MSB) 



i Bytel ! byte i Byte 1 of integer (LSB) 

+ + + + 

The procedure constructs an integer from two bytes. 

An example of this procedure is: 

var ii: integer; bO. bl: byte; 

bO : = *AB; 
bl : = *CD; 
Byte2Int (ii, bO, bl); 

After this code is executed, ii contains *ABCD. 
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LIntByte Function 



LIntByte returns the specified byte of a long integer. The 
definition of this function is: 

FUNCTION LIntByte (WhichByte: integer; Num: longint): byte; 



I Parameter i Data Type 
! WhichByte ! integer 



liuunnnnnnHmiuuisrasc-f 

■'Description ! 

^■■■■■■BtSBMBBBBBflBBSXSCSESBBSSB'f 

! Which byte to return (O. . 3> ! 



Num 



I long integer I Long integer source for byte 

-+ + 



The function returns byte WhichByte from long integer Num. 
WhichByte has a range of (most significant byte) to 3 (least 
significant byte). 

An example of this function is: 

var li: longint; b0.bl.b2.b3: byte; 



li 
bO 
bl 
b2 
b3 



= * 12345678; 
- LIntByte (0, li >; 
= LIntByte (1, li); 
= LIntByte (2, li); 
= LIntByte (3, li); 



After this code is executed. bO contains *12. bl contains *34< b2 
contains *56. and b3 contains $78. 
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Int2Byte Function 



Int2Byte returns the specified byte of an integer. The 
definition of this function is: 

FUNCTION Int2Byte <Wh ichBy te, Num: integer): byte; 
I Parameter I Data Type i Description 



+«» 



i WhichByte ! integer 



! Which byte to return (O. .1) 



! Num 



! long integer ! integer source for byte 

-+ + 



The function returns byte WhichByte from integer Num. WhichByte 
has a range of O (most significant byte) to 1 (least significant 
byte). 

An example of this function is: 

var ii: integer; bOibl: byte; 



ii 
bO 
bl 



= »ABCD; 

= Int2Byte (0, ii ); 

= Int2Byte (1, ii); 



After this code is executed. bO contains *AB and bl contains *CD. 
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The Clock Control Unit 
ccCLKio 

The Clock Control Unit is used to interface with the Corvus 
Concept system clock. 

The ccCLKio unit USES no other units. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccCLKio; 



ccCLKio Unit Constants 

Constants defined in ccCLKio are: 
None. 



ccCLKio Unit Types 

Data types defined in ccCLKio are: 



! Da 

! CI 
+ — + 



ta Type ! Description 
kStr40 ! Clock unit string 









+ — + 
! CI 
+ — + 



string C403; 
+ — 



kPB 



Clock parameter block record 



DayofWeek : 


integer; 


< 


1. 


. 7 for Sun. . Sat 


> 


Month: 


integer; 


■C 


1. 


. 12 


> 


Day: 


integer; 


< 


1. 


. 31 


> 


Hour: 


integer; 


< 


0. 


. 23 


> 


Mins: 


integer; 


< 


0. 


. 59 


> 


Sees: 


integer; 


< 


0. 


. 59 


> 


Tenths: 


integer; 


< 





. 9 


> 


LeapYear : 


intea er ; 


■C 


0. 


.3 <0 = leap year ) 


> 


Year- 


integer; 


•£ 


0. 


. 99 


> 
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! Data Type I Description • 

! pClkDateRcd! Date record pointer ■ 

+ — + + + 

.' ClkDateRcd ! Date record (packed) 

+ — + +• + 

year: O. . 100; -C year > ■ 

day : 0.31; -C day > < 

month: 0. .12; < month > > 



ccCLKio Unit Variables 

Variables defined in ccCLKio are: 
None. 



ccCLKio Unit Functions and Procedures 
Procedures defined in c(CLKio are: 



Procedure 
rcCLKJ olnit 



.(-= = =:= = = = = = = = = = = = = = = = = = 

Description 

Unit initialization 



ClkRead 



ClkWrite 



ClkWeekDay 



ClkDatel 



ClkDate2 



ClkDate-3 



ClkTimel 



ClkTimpS 









Read clock parameters 



Write clock parameters 



Get day of week string 



Get day string ( "dy-mon-yr " ) 



Get day string ("month dy< year") 



Get day string ("dy month year") 



Get time string ("hr:mi:sc") 



Get time string ("hr:mi am") 



CvDateStr ! Convert date string to date record 

+ 
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Functions defined in ccCLKio are: 
None. 



ccCLKio In it Procedure 



ccCLKioInit initializes the ccCLKio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccCLKioInit; 

An example of this procedure is: 

ccCLKioInit; 
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ClkRead Procedure 



ClkRead reads the system clock and places the current clock 
values in the specified clock parameter block. The definition of 
this procedure is: 

PROCEDURE ClkRead (var CPB: ClkPB); 

! Parameter ! Data Type i Description ! 

! CPU t ClkPB ! Clock parameter block ! 



The procedure updates the following values in the specified clock 
parameter block: 

F-ipld I Range 

DayofWeek ! 1..7 for Sun. . Sat 



Month 




J . 


. 12 






Day 




1. 


. 31 






Hour 




0. 


. 23 






M i 1 1 s 




0. 


. 59 






Sfirs 




0. 


. 59 






Tenths 




0. 


. 9 






Leap Year 




0. 


. 3 


(0 = 


leap year) 


Year 




0. 


. 99 







An example of this procedure is: 
var CPU: ClkPB, 

ClkRead (CPB); -C get current clock values > 
with CPB do writeln ('Current date and time is'. 

Year: 4, Month: 4, Day : 4, 
Hour: 4. Minp: 4, Sees: 4. Tenths: 4)i 
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ClkWrite Procedure 



ClkWrite updates the system clock with clock values in the 
specified clock parameter block. The definition of this 
procedure is: 

PROCEDURE ClkWrite (CPD: ClkPB); 

! Parameter ! Data Type ! Description : 

! CPB ! ClkPB ! Clock parameter block : 

+ -f + + 

The procedure updates the system clock using the following values 
in the specified clock parameter block: 






l£ = 3XS = SCZ=S! = SC=:=S4- 



Field 






Day of Week 



Range 



rESKSSBSBEf 



Computed by procedure 



Month 



12 



Day 



1. . 31 



Hour 



0. . 23 



Mins 



0. . 59 



Set s 



Set to in procedure 



Tenths 



Jet to in procedure 



LeapYesr 



Computed by procedure 



Year 



O. . 99 
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An example of this procedure is: 

var CPB: ClkPB; newYear , newMonth . neuiDay : integer; 
< more code > < get new date > 



ClkRead (CPB); 
with CPB do begin 



■C get current clock values > 



Year 
Month 
Day 
end ; 
ClkWrite (CPB); 



= newYeav, -C set new year 
= newMonth; ■£ set new month 
= newDay; < set new day 



•C update clock values 
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ClkWeekDay Procedure 



ClkWeekDay moves the current day of week to the specified string. 
The procedure reads the system clock before returning the date 
string. The definition of this procedure is: 

PROCEDURE ClkWeekDay (var DateStr'. ClkStr40>; 

! Parameter ! Data Type ! Description ! 

I DateStr ! ClkStr40 ! Day of week string 

+ + . + + 

Day of the week is one of the following: 

Sunday 

Monday 

Tuesday 

Wednesday 

Thursday 

Friday 

Saturday 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkWeekDay (DateString); 

writeln ('Today is ', DateStr ing ) ) 

Output from this example is: 

Today is Saturday 
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ClkDatel Procedure 



ClkDatel moves the current system date in "dy-mon-yr" format to 
the specified string. The procedure reads the system clock 
before returning the date string. The definition of this 
procedure is: 

PROCEDURE ClkDatel (var DateStr: ClkStr40); 

! Parameter ! Data Type ! Description ! 

! DateStr ! ClkStr40 ! Current system date string ! 

+ + + + 

The procedure constructs a string containing the current system 
date with a two digit day, the first three characters of the 
monthi and a tmo digit year. Date components are separated with 
a hyphen. 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkDatel (DateString); 

writeln ('The date is '.DateString); 

Output from this example is: 

The date is 23-0ct-82 
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ClkDate2 Procedure 



ClkDate2 moves the current system date in "month dy, year" format 
to the specified string. The procedure reads the system clock 
before returning the date string. The definition of this 
procedure it: 

PROCEDURE ClkDate2 (var DateStr: ClkStr40>; 

I Parameter ! Data Type ! Description { 

i DateStr ! ClkStr40 ! Current system date string ! 

+ + + + 

The procedure constructs a string containing the current system 
date with the full month name/ a one or two digit day. and a four 
digit year. 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkDate2 (DateString); 

writeln ('The date is '.DateString); 

Output from this example is: 

The date is October 23, 1982 
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ClkDate3 Procedure 



ClkDate3 moves the current system date in "dy month year" format 
to the specified string. The procedure reads the system clock 
before returning the date string. The definition of this 
procedure is: 

PROCEDURE ClkDate3 (var DateStr: ClkStr40>; 

! Parameter ! Data Type ! Description I 

! DateStr ! ClkStr40 ! Current system date string ! 

+ + + + 

The procedure constructs a string containing the current system 
date with a one or two digit day> the full month name/ and a four 
digit year. This is the common European form of the date. 

An example of this procedure is: 

var DateString: ClkStr40; 

ClkDate3 (DateString); 

writeln ('The date is '. DateStr ing ) ; 

Output from this example is: 

The date is 23 October 1982 
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ClkTimel Procedure 



ClkTimel moves the current system time in "hr:mi:sc" format to 
the specified string. The procedure reads the system clock 
before returning the time string. The definition of this 
procedure is: 

PROCEDURE ClkTimel (var TimeStr: ClkStr40); 

! Parameter I Data Type ! Description ! 

I TimeStr ! ClkStr40 i Current system time string ! 

+ + + + 

The procedure constructs a string containing the current system 
time with a two digit hour/ a two digit minute/ and a two digit 
second. Time components are separated with a colon. Hours are 
in the 24-hour format with a range of to 23. 

An example of this procedure is: 

var TimeStrJng: ClkStr40; 

ClkTimel ( TimeStr ing ) ; 

writeln ('The time is '/ TimeStr ing ) ; 

Output from this example is: 

The timf is 02: 21: 45 
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ClkTime2 Procedure 



ClkTime2 moves the current system time in "hr:mi am" format to 
the specified string. The procedure reads the system clock 
before returning the time string. The definition of this 

procedure is: 

PROCEDURE ClkTime2 (var TimeStr: ClkStr40>; 
! Parameter ! Data Type ! Description I 

-J- 1Z2 ~ — 22 — ™ IZZ ~ SS -ST- S5 ^~ £S S2 SS SS 2? 32 52 52 SS SB SB SS BE SB + SB IB SB SS SEE BE SB SB SB BE SB SB SB SB SB SB BE SB SB SB BE BS S5 J8B 555 5S 38 JES S — 5 2S S2 -+' 

f TimeStr I ClkStr40 ! Current system time string ! 

+ + + + 

The procedure constructs a string containing the current system 
time with a two digit hour, a two digit minute, and an am/pm 
indicator. Hours and minutes are separated with a colon. Hours 
are in the Ic'-hour format If the time is between midnight and 
noon, the time has an am indicator, otherwise, the time has a pm 
ind icator. 

An example of this procedure is: 

vnT TimeString: ClkStr40; 

ClkTime.? (TimeString >; 

writeln ('The time is ', TimeStr ing ) ; 

Output from this example is: 

The time is 2:21 am 
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CvDateStr Procedure 

CvDateStr converts a string to a packed date record. The 
definition of this procedure is: 

PROCEDURE CvDateStr (DateStr: ClkStr40; 

var Drcd: ClkDateRcd); 

! Parameter ! Data Type ! Description ! 

! DateStr ! ClkStr40 I Date string ! 

+ + + + 

! Drcd ! ClkDateRcd ! Date record : 

+ + + + 

The procedure evaluates the specifed string and computes a packed 
date record. The date string may be in any of the valid date 

format!,: 

dy -mon-yr 

month dy» year 

d y month y r ft r 

If the date string is not evaluated successfully, a packed date 
record with slJ zeros is generated. 

An example of this procedure is: 

var CurrDate: ClkStr40; PackedDate: ClkDateRcd; 

write ('Enter current date: '); 

readln (CurrDate)i 

CvDateStr (CurrDate, Pac k edDate ) ; 
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The Display Control Unit 
ccCRTio 

The Display Control Unit is used to interface with the display 
driver. The unit also contains several functions and procedures 
for user interaction with the system. 

The ccCRTio unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCL1B> ccDEFN, ccCRTio; 

ccCRTio Unit Constants 

Constants defined in ccCRTio are. 



! )dentifier ! Description ! 

! ccCR'li over s i on ! Current unit version number string ! 

H + + 



ccCRTio Unit Types 

Data types defined in ccCRTio are: 

! Data Type ! Description ! 

! CrtStatus ! CrtAction function result ! 

H + 1 + + + 

! Normal ! O ! No error ! 

+ + + + 

! Escape i 1 ! User pressed ESC key ! 

+ + + + 

! Error ! 9 ! Error in numeric conversion ! 

+ h H + 
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+ S==S=S=3S==a-feSSaSSBBaBSSBSaSSB&SBBBaBBSSSSSSSSE3SSC«BS3S 

! Data Type ! Description 

+ =£Bsa==S = S5BESS3RSSBEaB + BBBBBSa3BSBE83 8SBCBIlEaaaE&BI3B9BBE8ln)aBBIBIBRB8BEB&BSaBBSflBBiBtaBBSBBt8IBESIB7SEaSBC8E-f- 

i CrtRdx ! Radix for number conversions 





1 


BinRdx 


i 

i 





i 


Binary radix (base 2) 






1 
1 


OctRdx 


i 
i 


1 


! 


Octal radix 


(base 8) 






1 
1 


DecRdx 


• 
■ 


2 


1 

1 


Decimal rad 


ix (base 10) 






1 
1 


HexRdx 


i 
i 


3 


1 
1 


Hexadecimal 


radix (base 


16) 


1 


Cr 


tCommand ! Command codes for CrtAc 


tion 






■ 

I 

1 


BsupQf f 


i 
i 

i 
i 


40 


1 
1 

1 
t 


Do not supp 
input 


re&s blanks 


in user 




I 


BsupOn 


■ 
i 


39 


1 
1 


Suppress bl 


anks in user 


input 




I 


CursorBtab 


i 
• 


9 


1 

1 


Back tab 








I 
1 


Cursor Down 


i 
i 


5 


1 
1 


Move cursor 


down 






■ 


Cur sorFtab 


i 
i 


8 


1 


Forward tab 








I 
1 


Cur&orHomi' 


i 


3 


1 

1 


Move c uTsor 


home 






I 

1 


Cur sor Invr se 


i 
i 


13 


1 
1 


Set inverse 


cursor (box 


cursor ) 




i 

1 


CursorLef t 


i 
• 


7 


t 
1 


Move cursor 


left 






I 


CurtorOff 


i 
i 


10 


1 
1 


Do not disp 


lay cursor 






I 
i 


CursorOn 


t 


11 


1 
1 


Display cursor 






I 


CursorR i g h t 


i 


6 


1 
1 


Move cursor 


right 






I 
I 


CurtorUndscr 


i 

i 


12 


1 
1 


Set under line cursor 





(continued on next page) 
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I Data Type ! Description 

! CrtCommand ! Command codes for CrtAction (continued) 






CursorUp 



DefNumOf f 



DefNumOn 



DefStrOff 



DeFStrOn 



DeleteChar 



Del etpLine 



EchoOff 



EchoOn 



EraseALL 



ErasEOL 



ErasEOS 



GrfMode 



Heartbeat 



InsertChar 



InsertLine 



InaertOf f 



Inser tCJn 



Invr tBcr een 



PagingOf f 



Pag ingOn 



4 ! Move cursor up 



44 I Do not output default num values 



43 ! Output default numeric values 



42 



41 



17 



IS 



34 



33 



26 



46 



16 



14 



18 



19 



Do not output default strings 



Output default strings 



Delete character at cursor 



Delete line at cursor 



Do not echo user input 



Echo user input 



Clear window and move cursor to 
upper left corner of window 



Clear to end of line 



Clear to end of window 



Set graphics mode 



Output activity indicator 



Insert character at cursor 



Insert line at cursor 



Character insert mode OFF 



Character insert mode ON 



Invert screen video 



Paging mode OFF 



23 ! Paging mode ON 

H H 



(continued on next page) 
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! Data Type i Description 

! CrtCommand ! Command codes for CrtAction (continued) 



! ScrollOff ! 20 ! Scroll mode OFF 


! ScrollOn ! 21 ! Scroll mode ON 


i StartBeat ! 45 ! Initialize activity indicator 


! TxtMode ! 27 ! Set text mode 


! TypAhdOf f ! 36 ! Type ahead not al lowed 


! TypAhdOn ! 35 ! Type ahead allowed 


! UcaseOff ! 38 ! Do not convert input to 
i ! ! upper case 


! UcaseOn : 37 ! Convert input to upper case 


! Vdolnv ! 30 ! Set inverse video 


! VdolnvUnd i 3S ! Set inverse underline video 


! VdoNor ! 29 ! Set normal video 

! VdoNorUnd ! 31 ! Set normal underline video 


! WrapOff ! 24 ! Line wrap OFF 


! WrapOn ! 25 ! Line wrap ON 
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ccCRTio Unit Variables 

Variables defined in ccCRTio are: 



' - V l- iabl l '' Data Type ! Description (default)! 

1 Bee P ' char ! Bell character ■ 



! CrtEcho 

+ 



boolean ! Echo input flag 



(TRUE) ! 



! CrtNdef 



boolean ! Output default number 



(TRUE.) ! 



! CrtSdef 



boolean ! Output default string 



(FALSE) ! 



CrtShft 



boolean ! Convert to uppercase 



( TRUE ) : 



I CrtBsup 

+ 



boolean ! Blank suppress 



( FALSE ) 



CrtTahd 



boolean i Type ahead allowed 



(TRUE) ! 



! WndowLin 

H 



integer i Initial window size - lines 



! WndowCol ! integer i Initial window size - columns 

+ + + . 

! The following are used by the CrtTitle procedure 

+ + + 

! CrtTpgm I stringC163 ! Program name string 

+ + + 

! CrtTvrs ! stringC163 ! Program version number strinq 

+ + + *_ 

! CrtTcpy ! stringC803 ! Copyright notice string 
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ccCRTio Unit Functions and Procedures 

Procedures defined in ccCRTio are: 

! Procedure i Description 



! ccCRTioInit ! Unit initialization 

+ + 

! CvIntStr ! Convert integer to string 



! CvLIntStr ! Convert long integer to string 

■* + 

! CrtTitle I Clear window and display title banner at 
I ! top of window 



! CrtPrompt ! Get data from user with prompt 

+ + 

! CrtPause ! Wait for user response 

+ + 

I GoToXY i Position cursor 

+ + 

! CrtAction ! Display command processing 

+ + 



Functions defined in ccCRTio are: 



! Function i Description 

! Uppercase ! Convert character to upper case 

+ + 

! GetByte I Get character from user 

+ + 

! GetString i Get string from user 



! GetNum ! Get numeric data (integer) 

+ + 

! GetLongNum ! Get numeric data (long integer) 

+ + 

! CvStrlnt ! Convert string to integer 

+ + 

! CvStrLInt ! Convert string to long integer 

+ + 

I BellTone ! Generate speaker tones 

+ + 
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ccCRTioInit Procedure 



ccCRTioInit initializes the ccCRTio unit. This procedure must be 
called before any other procedures or functions in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccCRTioInit; 

This procedure initializes the following variables: 



! Variable I Value ! Description ; 
! CrtEcho ! TRUE ! Echo input flag : 


! CrtNdef ! TRUE ! Output default number 


! CrtSdef ! FALSE ! Output default string : 


! CrtShft ! TRUE ! Convert to uppercase ! 


! CrtBsup ! FALSE ! Blank suppress 


! CrtTahd ! TRUE ! Type ahead allowed 


! WndouiL.in ! nn ! Window size - lines : 


i WndowCol ! nn i Window size - columns ! 


! CrtTpgm ! 'pgmid' : Program name string ! 


! CrtTvrs ! 'O.O' I Program version number string 


! CrtTcpy ! j Copyright notice string : 



An example of this procedure is: 
ccCRTioInit; 



Copyright 1983 Corvus Systems, Inc. 



September 1, 1783 



ccCRTio Corvus Concept Pascal System Library 

Page 4-8 Display Control Unit 

Uppercase Function 

Uppercase converts a lower case character < a. . z ) to an upper 
case character. The definition of this function is: 

FUNCTION Uppercase <Ch: char): char; 



! Parameter ! Data Type ! Description ! 

! ch I char i Character to convert to i 

! i ! upper case • 

+ + + + 

An example of this function is: 

UcChar := Uppercase < AnyChar )i 

where the parameter AnyChar is a character. If the character is 
a lower case letter, UcChar is assigned the upper case equivalent 
of AnyChar. Otherwise. UcChar is assigned the value of AnyChar. 

Another example is: 

var i: integer; S: stringC643; 

S := 'This is an uppercase function test'; 

for i :-■ 1 to length (S) do SCi3 := Uppercase <SCi3); 

This example converts all characters in string S to upper case 
charac ters. 
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GetNum Function 



OetNum reads a number from INPUT and stores it in an integer 
variable. The definition of this function is: 

FUNCTION GetNum (var Num: integer): CrtStatus; 

I Parameter ! Data Type ! Description ! 

' Num ! integer ! Integer number from INPUT i 

+ + + + 

The function returns a result of Escape if the user presses the 
ESC key. Otherwise, the function result is Normal and the 
specified integer variable contains the input number. If the 
user presses RETURN with no other data, the default value is 
placed in the integer variable (see CrtNdef). 

The first character entered, if not numeric, may specify the 
conversion radix. The conversion radix characters are: 

"/. - input is an octal number (base S> 
+' -, A - input is a decimal number (base 10) 

*, ! - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are O to 7 for 
octal radix, O to 9 for decimal radix, and O to 9 plus A to F for 
hexadecimal radix. Invalid characters, based on input radix, are 
not echoed and cause the bell to sound for user correction. If 
the numeric value overflows the maximum integer value, a 
truncated value is returned. 

If CrtEcho is TRUE, input characters are echoed as input. If 
CrtEcho is FALSE, input characters are not echoed. 

If CrtNdef is TRUE, the current value of Num is used as the 
default value. The current value of Num is displayed in decimal 
before accepting user input. The cursor is placed at the first 
character of the default value. If CrtNdef is FALSE, no default 
value is output before accepting input. 

If CrtTahd is TRUE, data is accepted from the type ahead buffer 
until empty. Then data is accepted from the user. If CrtTahd is 
FALSE, the keyboard type ahead buffer is cleared before accepting 
user input. 
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An example of this function is: 

if GetNum ( Int ) = Escape 

then -C ESC key processing > 
else -C normal processing >; 



If the user presses the ESC key 
processing section is executed, 
contains the input number and 
executed. 



Int contains O and the ESC key 
Otherwise! integer variable Int 
the normal processing section is 
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GetLongNum Function 



QetLongNum reads a number from INPUT and stores it in a long 
integer variable. The definition of this function is: 

FUNCTION GetLongNum (var Num: Longlnt): CrtStatus; 

! Parameter i Data Type ! Description ' 

I Num ! Longlnt ! Long integer from INPUT ! 

+ + + + 

The function returns a result of Escape if the user presses the 
ESC key. Otherwise, the function result is Normal and the 
specified long integer variable contains the input number. If 
the user presses RETURN with no other data, the default value is 
placed in the long integer variable (see CrtNdef). 

The first character entered, if not numeric, may specify the 
conversion radix. The conversion radix characters are: 

"/. - input is an octal number (base 8) 
+. -. # - input is a decimal number (base 10) 

*, ! - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are to 7 for 
octal radix. to 9 for decimal radix, and to 9 plus A to F for 
hexadecimal radix. Invalid characters, based on input radix, are 
not echoed and cause the bell to sound for user correction. If 
the numeric value overflows the maximum long integer value, a 
truncated value is returned. 

If CrtEcho is TRUE, input characters are echoed as input. If 
CrtEcho is FALSE, input characters are not echoed. 

If CrtNdef is TRUE, the current value of Num is used as the 
default value. The current value of Num is displayed in decimal 
before accepting user input. The cursor is placed at the first 
character of the default value. If CrtNdef is FALSE, no default 
value is output before accept ing input. 

If Crtlahd is IRUE. data is accepted from the type ahead buffer 
until empty. Then data is accepted from the user. If CrtTahd is 
FALSE, the keyboard type ahead buffer is cleared before accepting 
user input. 
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An example of this function is: 

if GetLongNum < Lglnt ) = Escape 
then -C ESC key processing > 
else -C normal processing >; 

If the user presses the ESC key, Lglnt contains and the ESC key 
processing section is executed. Otherwise/ long integer variable 
Lglnt contains the input number and the normal processing section 
is executed. 
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GetString Function 



GetString reads an input string and stores it in a string 
variable with a maximum length of 80 characters. The definition 
of this function is: 

FUNCTION GetString (var StrBuf: String80): CrtStatus; 

! Parameter ! Data Type ! Description ! 

! StrBuf ! string80 ! String from INPUT ! 

+ + + + 

The function returns a result of Escape if the user presses the 
ESC key. Otherwise, the function result is Normal and the 
specified string variable contains the input string. If the user 
presses RETURN with no other data, the default string value is 
placed in the string variable (see CrtSdef). If more than 80 
characters are entered, the bell is sounded and the character is 
not added to the string. When the string length is 80, only the 
backspace and RETURN keys are valid. 

If CrtBsup is TRUE, all blank characters are removed from the 
input string. If CrtBsup is FALSE, blank characters are returned 
as enter pd . 

If CrtEcho is TRUE, input characters are echoed as input. If 
CrtEcho is FALSE, input characters are not echoed. 

If CrtSdef is TRUE, the current value of StrBuf is used as the 
default value. The current value of StrBuf is output before 
accepting user input. The cursor is placed at the first 
character of the default value. If CrtSdef is FALSE, no default 
string is output before accepting input. 



If CrtShft is TRUE, all lower case characters are converted to 
upper case in the input string. If CrtShft is FALSE, lower case 

rharartpr? arp ra+tn-nnoH ac onf oroH 



If Crtlahd is TRUE, data is accepted from the type ahead buffer 
until empty. Then data is accepted from the user. If CrtTahd is 
FALSE, the keyboard type ahead bu-ffer is cleared before accepting 
user input 
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An 



example of this function 



if GetString ( UserReply ) = Escape 
then < ESC key processing > 
else < normal processing >; 

If the user presses the ESC key. the ESC key processing section 
is executed. Otherwise* string variable UserReply contains 
input string and the normal processing section is executed. 



the 
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GetByte Function 



GetByte reads an input byte and returns a character. The 
definition of this function is: 

FUNCTION GetByte: char; 

The function returns the input character. If the RETURN key is 
pressed, a space is returned. If the ESC key is pressed/ a ! is 
returned. If a lower case character is entered/ a converted 
upper case character is returned. 

If CrtEcho is TRUE; the input character is echoed at the current 
cursor position. If CrtEcho is FALSE, the character is not 
echoed. 

If CrtTahd is TRUE, the character is accepted from the type ahead 
buffer if not empty. Otherwise, the character is accepted from 
the user. If CrtTahd is FALSE, the keyboard type ahead buffer is 
cleared before accepting the character. 

An example of this function is: 

Ch : = GetByte; 

Ch is the variable in which the character is stored. 
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CvStrlnt Function 



CvStrlnt converts a numeric stringi with a maximum length of 80 
characters, into its integer equivalent. The definition of this 
f unct i on is: 

FUNCTION CvStrlnt (StrDuf: StringSO; 

var Nurn: integer): CrtStatus; 

! Parameter ! Data Type ! Description ! 

! StrBuf ! stringBO ! Numeric string to convert I 

+ + + + 

! Num ! integer ! Integer value of string '. 

+ + + + 

The function returns a result of Error if the numeric string 
contains invalid characters. Otherwise, the function result is 
Normal and the specified integer variable contains the converted 
numeric string value. 

The first character of the string/ if not numeric, may specify 
the conversion radix. The conversion radix characters are: 

7. - input is an octal number (base 8) 
+ ,-,*)- input is a decimal number (base 10) 

*, ! - input is a hexadecimal number (base 16) 

Decimal is the default radix. Valid characters are to 7 for 
octal radix, to 9 for decimal radix, and to 9 plus A to F for 
hexadecimal radix. Invalid characters, based on input radix, 
cause the function result to be set to Error. If the numeric 
value overFlows the maximum integer value, a truncated value is 
returned. 

An example of this function is: 

Status := CvStrlnt < StringVar, IntVar ); 

Status is of the type CrtStatus. StringVar is the numeric striny 
variable of type StringBO. IntVar is the integer variable in 
which the numeric value of StringVar is stored. 
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CvStrLInt Function 



CvStrLInt converts a numeric string* with a maximum length of SO 
characters) into its long integer equivalent. The definition of 
this function is: 

FUNCTION CvStrLInt (StrBuf: String80; 

var Num: Longlnt): CrtStatus; 

! Parameter ! Data Type ! Description I 

+ = = = = = = = == = = + = = = = === ======:= tscncscuHSEHs =s==s=======st===== + 

! StrBuf I string80 ! Numeric string to convert ! 

+ + + + 

! Num ! Longlnt ! Long integer value of string ! 

.< h + + 



The function returns a result of Error if the numeric string 
contains invalid characters. Otherwise< the function result is 
Norma] and the specified long integer variable contains the 
converted numeric string value. 



The first character of the stringi if not numeric, may specify 
the conversion radix. The conversion radix characters are: 



7. - input is an octal number (base 8) 
+ / -/ 41 - input is a decimal number (base 10) 
*> ! - input is a hexadecimal number (base 



16) 



Decimal is the default radix. 
O to ~ " ' ' 
rad i x. 



Valid characters are O to 7 for 
octal radix, O to 9 for decimal radix, 
hexadecimal 



and O to 9 plus A to F for 

._. Invalid characters, based on input radix, 

cause the function result to be set to Error. If the numeric 
value overflow? the 
is returned. 



maximum long integer value, a truncated value 



An example of this function is: 

Status := CvStrLInt ( StringVar, LIntVar ); 



Status is of the type CrtStatu 
variable of type StringBO 
in which the numeric valu 



s. StringVar is the numeric 
LIntVar is the long integer 
e of StringVar is stored. 



string 
var iab 1 e 
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CvIntStr Procedure 



CvIntStr converts an integer into its numeric string equivalent. 
The definition of this procedure is: 

PROCEDURE: CvIntStr (Num: integer; 

var StrBuf: StringBO; Rdx: CrtRdx); 

! Parameter : Data Type ! Description ! 

! Num ! integer ! Integer value ! 

+ + + + 

! StrBuf ! stringBO ! Numeric string equivalent ! 

+ + + + 

! Hdx ! CrtRdx ! Conversion radix ! 

+ h y + 

The procedure converts the specified integer variable to a 
numeric string based on the conversion radix. The conversion 
radix may be BinRdx for binary, OctRdx for octal, DecRdx for 
decimal, or HexRdx for hexadecimal. An example of this procedure 
is: 

CvIntStr < IntVar, StringVar, DecRdx >; 

IntV.-jr is the integer to be converted. StringVar is a string 
with y maximum length of BO characters in which the converted 
number is stored. DecRdx is of type CrtRdx, which indicates the 
converted integer is to appear in decimal. 
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CvLIntStr Procedure 

CvLIntStr converts a long integer into its numeric string 
equivalent. The definition of this procedure is: 

PROCEDURE CvLIntStr (Num: Longlnt; 

var StrBuf: StringBO; Rdx: CrtRdx); 

! Parameter ! Data Type ! Description ! 

! Mum ! Longlnt ! Long integer value ! 

+ + ' + + 

! StrBuf ! string80 ! Numeric string equivalent ! 

+ + + + 

! Rdx ! CrtRdx i Conversion radix ! 

+ + + + 

The procedure converts t h e . spec i f i ed long integer variable to a 
numeric string bared on the conversion radix. The conversion 
radix may be BinRdx for binary ( OctRdx for octal; DecRdx for 
decimal, or HexRdx for hexadecimal. An example of this procedure 

3 s : 

CvLIntStr ( LIntVar, Stringvar, HexRdx ) ; 

LIntVar is the long integer to be converted. Stringvar is a 
string with a maximum length of 80 characters in which the 
converted number is stored. HexRdx is of type CrtRdXi which 
indicate!; the converted long integer is to appear in hexadecimal. 
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CrtTitle Procedure 



CrtTitle clears the current window and then writes a program 
title banner using inverse video on the first two lines of the 
window. The definition of this procedure is: 

PROCEDURE CrtTitle (Txt: StringBO); 

! Parameter i Data Type ! Description ! 

! Txt ! string80 ! Title text ! 

+ + + + 

The procedure clears the current window and displays the program 
name (CrtTpgm)* version number (CrtTvsn)« and title text (txt) on 
the first line in the window. The copyright notice (CrtTcpy) is 
displayed on the next line. The default copyright notice is for 
Corvus Systems. The general form in the current window is: 

CrtTpgm CCrtTvrs3: txt 
CrtTcpy 

An example of this procedure is: 

CrtTpgm := 'TSTPGM'; CrtTvrs := '1.0'; 
CrtTcpy := 'Copyright 19B2 KLL Inc. '); 
CrtTitle ('Test Program Title Text'); 
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CrtPause Procedure 



CrtPause waits for an input character. The definition of this 
procedure is: 

PROCEDURE CrtPause (var Ch: char); 

I Parameter ! Data Type I Description ! 

4srKSSMzsss4.ssxssxssBaBaax+uxscssaxs»SBaasBaBX>aSEasBsc=aB+ 

! Ch ! char i Character input by user ! 

+ + + + 

The procedure selects the command window and outputs the message: 
Press <space> to continue 

The system waits until a character is input. The character is 
returned in the specified character variable. If the RETURN key 
is pressed, a space is returned. If the ESC key is pressed, a ! 
is returned. If a lower case character is entered, a converted 
upper case character is returned. 

An example of this procedure is: 

CrtPause (Ch); 

Ch is the variable in which the user input is stored. 
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CrtPrompt Procedure 



CrtPrompt writes a prompt line with optional prompt options. The 
definition of this procedure is: 

PROCEDURE CrtPrompt (Txt, Opt: StringBO); 

! Parameter ! Data Type ! Description i 

+BBBssBBBBBS+BBBBBBBBBBBBBB+BHBBBBBaimuBBBBBBBBmBMmBMBaBB + 

! Txt ! StringBO 



i Prompt line text 



! Opt 



StringBO 



Prompt line options 



The procedure outputs a prompt line at the current cursor 

position. Txt is the prompt line text and Opt is a list of valid 

replies. If the Txt parameter is null (string with no 
characters), the default prompt: 

Please select option: 

is used. If the opt parameter is nulli no options are included 
in the prompt line. Otherwise, the specified options are 
included enclosed in brackets. An example of this procedure is: 

CrtPrompt ('Enter your choice'. 

'A(dd B(ubtract M(ultiply D(ivide'); 
case GetByte of 



'A' 
'S' 
'M' 
'D' 
otherwise 



{add processing) 
{subtract processing) 
{multiply processing) 
{divide processing) 
{error processing 



end. {case GetByte of) 

Both the prompt line and option line can be up to 80 characters 
each. 

This example generates the following output: 

Enter your choice CA(dd S(ubtract M(ultiply D(ivide3: 
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GoToXY Procedure 



CoToXY positions the cursor to a given character position in the 
current window. The definition of this procedure is: 

PROCEDURE GoToXY (X,Y: integer); 

i Parameter i Data Type ! Description i 

I X ! integer ! Character coordinates at which ! 

+ + + to place the cursor ! 

! Y I integer I ! 

+ + + + 

The procedure positions the cursor at the specified location. 
The origin (0»0) is the upper left hand corner of the current 
window The X coordinate must be in the range of to the number 
of characters per line less 1 in the current window. The fg?—i 
coordinate must be in the range of to the number of lines per 
window less 1 in the current window. If the X coordinate or Y 
coordinate is invalid* no cursor movement occurs. 

An example of this procedure is: 

var PosX. PosY: integer; 

PosX = O; 

PosY = 10; 

GoToXY ( PosX, PosY ); 

PosX is the X coordinate and "osY is the Y coordinate. 
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Bel lTone Function 

BellTone is used to make varied sounds with the Concept speaker. 
The definition of this function is: 

FUNCTION BellTone (Timbre: byte; 

Duration. Period : integer): integer; 

^ SSSSSS£a SSS+3SSSSSSBSSSSaZ+3SSSXSSSS»C3BKSSE»3SXB>aSSaSB3SS4- 

! Parameter ! Data Type ! Description ! 

! Timbre ! byte ! Timbre of tone (O to 127) ! 

+ + + + 

! Duration i integer i Duration of tone in 50 mi'lli- ! 
j i ! second increments ! 

+ + + + 

! Period ! integer ! Time between speaker tones ! 
! ! ! (Period equals 1/frequency) ! 



-+- 



-+ 



The function returns the I/O result after producing the specified 
sound with the Concept speaker. Duration is the length of the? 
tone in increments of 50 milliseconds, eg. 1 is a very short note 
and 20 is a very long note. 

An example of this procedure is: 

irist :~ UellTone ( Timbre. Length. Period ); 

. . or . . 

IOst := BellTone (31,10,254); <. pitch for .5 seconds > 
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Pitch Parameters for Three Octaves 






Period 
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+ 

Timbre 
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1 
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7 

a 
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10 
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31 
31 
31 
31 

31 
31 
31 
31 
31 
31 
31 
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Second Octave 
+ 

Timbre 



Pitch 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
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51 
51 
51 
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51 
51 
51 
51 
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Third Octave 
. + 

Pitch 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



Timbre 
81 



81 
81 
81 
81 
81 
81 
81 
81 
81 
81 
81 



-++- 
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CrtAction Procedure 



CrtAction performs many different display control functions. The 
definition of this procedure is: 

PROCEDURE CrtAction (Cmd: CrtCommand ) ; 

I Parameter I Data Type ! Description ! 

! Cmd i CrtCommand ! Action command from table below! 

+. + + + 

The procedure performs the specified command which is of the type 
CrtCommand. 

An example of this procedure is: 

CrtAction (EraseALL); 

Each command is described below. 



CrtAction (BsupOff) — blank suppress user input OFF 

Br.upOff sets variable CrtBsup to FALSE. If CrtBsup is FALSE, 
blank characters entered by the user (when using the 
GetString function) are returned as entered. 

CrtAction (BsupOn) — blank suppress user input ON 

Bj,upOn sets variable CrtBsup to TRUE. If CrtBsup is TRUE, 
b)ank characters entered by the user (when using the 
GetStrinq function) are removed. 

CrtAction (CursorBtab) — back tab 

CursorBtab moves the cursor to the next tab stop to the left 
of the cursor position. Tab stops occur every eighth 
character position starting at the left edge of the window. 
If the cursor is at the left edge of the window, it does not 
move 

CrtAction (CursorDown) — move cursor down 

CursorDown moves the cursor down one line. If the cursor is 
at the bottom edge of the current window, it is placed on the 
first line of the current window if wrap is on. If wrap is 
off, no cursor movement occurs. CursorDown is 
non-destructive to the data displayed on the screen. 
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CrtAction (CursorFtab) — forward tab 

CursorFtab moves the cursor to the next tab stop to the right 
of the cursor position. Tab stops occur every eighth 
character position starting at the left edge of the window. 
If the cursor is within eitht characters of the right edge of 
the window, it does not move. 

CrtAction (CursorHome) — move cursor home 

CursorHome moves the cursor to the upper left corner of the 
current window. CursorHome is non-destructive to the data 
displayed on the screen. 

CrtAction (Cursor Invrse ) — set inverse cursor 

Cursorlnvrse sets the cursor to the inverse character box. 
Bee CursorUndscr. 

CrtAction (Cur sorLef t ) — move cursor leFt 

CursorLeft moves the cursor left one character position. If 
the cursor is at the left edge of the current window, it is 
placed at the last character position of the previous line. 
CursorLeft is non-destructive to the data displayed on the 

s c reen. 

CrtAction (CursorOff) — display cursor OFF 

CursorOFf turns off the cursor in the current window. 

CrtAction (CursorOn) — display cursor ON 

CursorOn turns on the cursor in the current window. A box 
cursor appears if Cursorlnvrse is in effect or an underline 
is CursorUndscr is in effect. 

CrtAction (CursorR i gh t ) — move cursor right 

CursorRight moves the cursor right one character position. 
If the cursor is at the right edge of the current windowi it 
is placed at the first character position of the next line. 
CursorRight is non-destructive to the data displayed on the 

screen. 

CrtAction (CursorUndscr) — set underline cursor 

CursorUndscr sets the cursor to the underline character. Gee 
Cur s or Invrse. 
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CrtAction (CursorUp) — move cursor up 

CursorUp moves the cursor up one line. If the cursor is at 
the top edge of the current window; it does not move. 
CursorUp is non-destructive to the data displayed on the 

screen. 

CrtAction (DefNumOff) — output default numeric values OFF 

DefNumOff sets variable CrtNdef to FALSE. If CrtNdef is 
FALSE, is us>ed as the default numeric value when using the 
GetNum and GetLongNum functions. 

CrtAction (DefNumDn) — output default numeric values ON 

DefNumOn sets variable CrtNdef to TRUE. If CrtNdef is TRUE, 
the specified variable is used as the default numeric value 
when using the GetNum and GetLongNum functions. 

CrtAction < Def StrOf f ) — output default strings OFF 

DefStrOff sets variable CrtSdef to FALSE. If CrtSdef is 
FALSE/ a nil string (no characters) is used as the default 
string value when using the GetString function. 

CrtAction (DefStrQn) — output default strings ON 

DefStrOn sets variable CrtSdef to TRUE. If CrtSdef is TRUE, 
the specified string variable is used as the default string 
value when using the GetString function. 

CrtAction (DeleteChar) — delete character at cursor 

The character at the cursor position is deleted. The rest of 
the line to the right of the cursor is shifted left one 
character with a blank fill at the end of the line. 

CrtAction ( Del eteLi ne ) — delete line at cursor 

DeleteLine deletes the line at the cursor position by moving 
all lines from the line below the cursor up one line. The 
last line is blank. The cursor does not move. 

CrtAction (tchoOff) — echo user input OFF 

EchoOff sets variable CrtEcho to FALSE. If CrtEcho is FALSE, 
user input data is not echoed when using the Get. . . . 
f unc t ions. 
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CrtAction (EchoOn) — echo user input ON 

EchoOn sets variable CrtEcho to TRUE. If CrtEcho is TRUE, 
input data is echoed when using the Get. . . . functions. 

CrtAction (Erase ALL) — clear screen and home 

EraseALL clears all data from the current window and places 
the cursor at the upper left corner of the window. 

CrtAction (ErasEOL) — clear to end of line 

ErasEOL clears all data from the cursor position to the end 
of the cursor line. The cursor is not moved. 

CrtAction (ErasEOS) — clear to end of screen 

ErasEOS clears all data from the cursor position to the end 
of the current window. The cursor is not moved. 

CrtAction (GrfMode) — set graphics mode 

GrfMode sets the current window to graphics mode. Graphics 
mode affect the window commands WinCreate and WinStatus. In 
graphics mode the parameters passed by these functions are 
intrepreted as pixel quantities instead of character cell 
quantities. See TxtMode. 

CrtAction (HeartBeat) — output activity indicator 

HeartBeat outputs a period on the current line to indicate 
processing activity. If the current line fills, a carriage 
return is output and the next line on the display screen is 
filled. HeartBeat must be initialized by StartBeat. 

CrtAction (InsertChar) • — insert character at cursor 

InsertChar inserts a character at the cursor positions by 
moving all characters from the cursor position one character 
to the right. The character at the right edge of the window 
"falls off" and vanishes. The character at the cursor 
position is blank. 

CrtAction (InsertOff) — character insert mode OFF 

InsertOff sets the current window character insert mode off. 
When insert mode is off. all characters displayed overwrite 
the existing text at the cursor position. 
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CrtAction (InsertOn) — character insert mode ON 

InsertOn sets the current window character insert mode on. 
When insert mode is on. the line is moved to the right to 
accomodate the new characters. Existing text is not 
overwritten. 

CrtAction (InsertLine) — insert line at cursor 

InsertLine inserts a line at the cursor position by moving 
all lines from the cursor line to the bottom of the current 
window down one line. The last line is lost off the bottom 
of the window. The inserted line is blank with the cursor on 
the inserted line. 

CrtAction ( InvrtScr een ) — invert screen video 

InvrtScreen inverts all data displayed in the current window. 
White on black becomes black on white or black on white 
becomes white on black. The background color definition is 
inverted and all subsequent characters, normal or inverse, 
are displayed relative to the new background color. 
InvrtScreen is non-destructive to the data displayed on the 
sc r een. 

CrtAction (PagingOff) — paging mode OFF 

PagingOff sets the current window paging mode off. When 
paging mode is offi the window is not cleared when the cursor 
reaches the bottom of the window. See PagingOn. 

CrtAction (PagingOn) — paging mode ON 

PagingOn sets the current window paging mode on. When paging 
mode is on and the cursor is moved past the bottom line of 
the window, the cursor disappears and the bell sounds. The 
user must press CNTL.-Q to clear the screen and home the 

c u r s o r . 

CrtAction (ScrollOff) — scroll mode OFF 

ScrollOff prevents scrolling in the current window. When 
scroll mode is off, the display screen does not scroll when a 
line feed is output on the bottom line of the current window. 
Instead, the cursor moves to the upper left position in the 
current window. 
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CrtAction (ScrollOn) — scroll mode ON 

ScrollOn allows the current window to scroll. When scroll 
mode is on/ the display screen data scrolls up one line when 
a line feed is output on the bottom line of the current 
window. The top line of the window falls off the top and the 
bottom line of the window is cleared. 

CrtAction (StartBeat) — initialize activity indicator 

StartBeat outputs a carriage return and the initial period to 
indicate processing activity. HeartBeat is used to output 
additional periods as processing progresses. 

CrtAction (TxtMode) — set text mode 

TxtMode sets the current window to text mode. Text mode 
affect the window commands WinCreate and WinStatus. In text 
mode the parameters passed in these functions are intrepreted 
as character cell quantities instead of pixel quantities. 
Sep GrfMode. 

CrtAction (TypAhdOff) — type ahead allowed OFF 

TypAhdOff sets variable CrtTahd to FALSE. If CrtTahd is 
FALSE, the type-ahead buffer is cleared before accepting 
input from the user when using the Get. . . . functions. 

CrtAction (TypAhdOn) — type ahead allowed ON 

TypAhdOn sets variable CrtTahd to TRUE. If CrtTahd is TRUE, 
the type-ahead buffer is used while accepting input from the 
user when using the Get. . . . functions. User input may be 
entered before being promped and is saved until requested by 
the program. 

CrtAction (UcaseOff) — convert user input to uppercase OFF 

UcaseOff sets variable CrtShft to FALSE. If CrtShft is 
FALSE, lower case characters (a. . z) entered by the user (when 
using the GetString function) are returned as entered. 

CrtAction (UcaseOn) — convert user input to uppercase ON 

UcaseOn sets variable CrtShft to TRUE. If CrtShft is TRUE, 
lower case characters (a. . z) entered by the user (when using 
the GetString function) are returned converted to upper case 
characters (A. ,Z). All other characters are returned as 
entered. 
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CrtAction (Vdolnv) — set inverse video 

Vdolnv sets the current window to output inverse video 
characters. All subsequent characters are displayed in 
inverse video until another video command is encountered. 
Inverse is relative to the current background color (black or 
wh ite ). 

CrtAction (VdoInvUnd) — set inverse underline video 

VdoInvUnd sets the current window to output underlined 
inverse video characters. All subsequent characters are 
displayed underlined in inverse video until another video 
command is encountered. Inverse is relative to the current 
background color (black or white). 

CrtAction (VdoNor) — set normal video 

VdoNor sets the current window to output normal video 
characters (not underlined, not inverse). All subsequent 
characters are displayed normally until another video command 
is encountered. Normal is relative to the current background 
color (black or white). 

CrtAction (VdoNorUnd) — set normal underline video 

VdoNorUnd sets the current window to output underlined video 
characters. All subsequent characters are displayed 
underlined until another video command is encountered. 
Normal is relative to the current background color (black or 
wh i te ) . 

CrtAction (WrapOff) — line wrap OFF 

WrapOff sets the current window wrap mode off. While wrap 
mode is off. the cursor stops when it reaches the right or 
left edge of the window. 

CrtAction (WrapOn) — line wrap ON 

WrapOn sets the current window wrap mode on. While wrap mode 
is on, the cursor is set to the left edge of the next line 
when the cursor moves past the right edge of the current 
window. Also, the cursor is set to the right edge of the 
previous line when the cursor moves past the left edge 
(backspace, cursor left) of the current window. 
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The Data Comm/Pr inter Interface Unit 
ccDCPio 

The Data Comm/Printer Interface Unit is used to set data 
communication parameters and protocols for the Corvus Concept 
data communications and printer drivers. 

The ccDCPio unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccDCPio; 



ccDCPio Unit Constants 

Constants defined in ccDCPio are: 



Baud Rate Codes 



Identifier 
Baud 300 



! Value 
! 



Descr ip t i on 
300 baud 






Baud 600 




t 


1 




600 b 


and 


Baud 1200 




i 


2 




1200 


baud 


Baud 2400 




■ 


3 




2400 


baud 


Baud4800 




• 


4 




4800 


baud 


Baud 9600 




■ 


5 




7600 


baud 


Baudl9200 




■ 
i 


6 




1920C 


baud 


#*# = defau 


It 


val ue 
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Parity Codes 

! Identifier i Value ! Description 
*** ! ParDisabled i O ! No parity 



! ParOdd ! 1 ! Odd parity 

+ + + 



! ParEven ! 2 ! Even parity 



I ParMarkXNR ! 3 ! Transmit mark parity (receive 
i I ! parity expectedi not checked) 



! ParSpaceXNR ! 4 ! Transmit space parity (receive 
! ! ! parity expected- not checked) 



! Parity is separate from word sizp 
! #*# = default value 



Data Comm Port Codts 
! Identifier ! Value i Description ! 

-f. = — 32 — SB s- SiS3 = =3 BE = =5 SB SB SB m + SB BE BS SEES SB BS + SEES SB BESSES BESS SSSSSSBESSSSSSSSSESSSS SB BE BE SB BE BE SB BE BE BESSES 3= BE + 

' Portl I O i Data comm port 1 ! 



*** I Porta i 1 ! Data comm port 2 

+ h (. 

! ##* = default value 

+ 



Character Size Codes 

! Identifier ! Value I Description ! 

*** ! CharSzB ! O IB bit characters ! 

A Y + + 

! CharSz7 I 1 ! 7 bit characters ! 

+ + + + 

! Character size does not include parity ! 

j ♦## = default value ! 

+ + 



#*•» = default value 



September 1, 1983 Copyright 1983 Corvus Systems. Inc. 



Corvus Concept Pascal System Library 
Data Comm/Printer Interface Unit 



ccDCPio 
Page 5-3 



Protocol Codes 



I Identifier 

+SBa5as ==5*===SBS5a5====« + 

I LineCTSinverted 



Value 



*** 



LineCTSnormal 



LineDSRinverted 



LineDSRnormal 



LineDCDinverted 



LineDCDnormal 



XonXoff 



EnqAc k 



EtxAck 



Description 
Clear to send 



B 






IBB3B3EB+ 



- inverted 



Clear to send - normal 



Data set ready - inverted 



Data set ready - normal 



Data carrier detect - inverted 



Data carrier detect - normal 



X-on/X-off character protocol 



Enq/Ack character protocol 



Etx/Ack character protocol 



NoProtocol ! 9 ! No character protocol 

+ + 

Inverted is busy when O, normal is busy when 1 
##■«■ = default value 



Unit Number Codes 



+===== ====s; = === 


== 


=+= 




= + = = ===== ===== = = ====: = === ======= = = = = 


! I dent i f ier 






Value 


! Description 


+ =5 = = = = = === = = = = = 


== 


=+= 


====== 


B! + SS = == = = = = = = = S3 SSSS3 SI ======= = = = = = = = = 


I PrinterUnit 









i Printer 


! DtaComlUnit 






1 


! DataComm 1 


! DtaComSUnit 






2 


! DataComm 2 


! DCPinvUnitNo 






-1 


! Invalid unit number 
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DataComm Driver Unit Status Functions 
(not used by unit ccDCPio) 






+ =3ES==S = .= == = = = = = = 


ss + sssssis 


=+= 


:rsssassB3EsssssssRcatasrcassxs===s 


1 
1 


Identifier 


1 
1 


Value 




Description 


+ = = = = = = = ■= = = = = = = = 


=sss+= 


====== 


=+= 


======== ===========-=:============ 


I 


FCrdStatus 


1 

1 


*07 




Read buffer status 


! 


FCwrStatus 


1 
1 


*08 




Write buffer status 


I 
t 

1 
1 


FCsetHIwater 


1 
1 

1 
1 


*09 




Set high water mark for 
read buffer 


1 

1 
1 


FCsetLOwater 


1 
t 

1 
1 


*OA 




Set low water mark for 
read buffer 


1 
1 

1 


FCrdOutDsbl 


1 

1 

1 
1 


*OB 




Toggle read buffer output 
disable - BUFFER TO USER 


1 
1 


FCrdlnDsbl 


1 

1 

1 


*OC 




Toggle read buffer input 

disable - PORT TO BUFFER 


1 
1 

1 


FCwrOutDsbl 


1 
1 


*0D 




Toggle write buffer output 
disable - BUFFER TO PORT 


1 
1 

1 
1 


FCwrlnDsbl 


1 

1 
1 


*0F 




Toggle write buffer input 
disable - USER TO BUFFER 


1 


FCuirPufCl. fa 


t 
1 


'-1 ' V. ' . 




Oct number of characters 
in write buffer 


1 

1 

1 
1 


FCrdBufChr* 


1 

t 
1 


*io 




Get number of characters 
in read buffer 


1 
1 


FCautoLF 




♦ 11 




Toggle auto line feed flag 


1 
1 

1 


FCbtumENG 


1 
1 


*12 




Set the number of characters 
between ENQ's or ETX's 


1 


FCrdAltBuf 


1 
1 


*13 




Set an alternate read buffer 


1 


FCwrAltBuf 


1 


*14 




Set an alternate write buffer 



September 1, 1983 



Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library 
Data Comm/Printer Interface Unit 



ccDCPio 
Page 5-5 



Printer Driver Unit Status Functions 
(not used by unit ccDCPio) 



Identifier 






! FCmodeChg 
I 

+ 



Value 



*B0 



Description 



EnxrssEf 






Toggle transparent/translate 
mode 



FCinstAlt 



*B1 



Install AltChar translate tabl< 



FCattchPr 



*b; 



Attach printer to unit 



FCslctPitch 



*83 
$84 



Select pitch - 10 or 12 



FCslctlnch 



Select lines per inch - 6 or 8 
Install printer action table 



FCinstAct 



*B5 
$86 



FCclpiStat 



Return state of CPI and LPI 
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ccDCPio Unit Types 

Data types defined in ccDCPio are: 

I Data Type ! Description 

I RdBufStatus I Data comm input buffer status b 



lock 



+ +- 

Buf ferSize: 
FreeSpace: 
HiWeter: 
LowWater : 
InputDisb Id: 
DutputDsb Id : 
LostData: 
AltBuf Avai 1: 
AltBuf Addr: 
AltBufSize: 



integer; 

integer; 

integer; 

integer; 

boolean; 

boo 1 ean; 

boolean; 

boo 1 ean; 

pBy te; 

integer; 



+ — + 

! WrBufStatus 



Data comm output buffer status block 



+ + 

Buf f erSi ze : 
FreeSpac e : 
ChrBtwnENQ: 
InputDisb Id 
OutputDsbld 
AutoLinFeed 
AltBuf Avai 1 
AltBuf Addr: 
AltUufSize: 



integeri 
integer; 
integer; 
boolean; 
boo lean; 
boolean; 
boo lean; 
p B y t e ; 
integer; 



DCHstatubBlk 



Printer status block 



CPI: 
LP! : 



i ntf q er ; 
integer; 
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ccDCPio Unit Variables 

Variables defined in ccDCPio are: 

+_•_■___ at «»«=+sr==ss=«====aB« ! +««t«M«B:=K!»=»s==a:=s:B=»«!«=a!==a 1 at»===s5===+ 

! Variable ! Data Type ! Description 

I PrtAvail i boolean I Printer available (assigned) 



1 
1 


DClAvai 


1 


i 
i 


boolean 


1 Datacom 1 available (assigned) 


1 


DC2Avai 


1 


i 


boolean 


i Datacom 2 available (assigned) 


1 
1 


PRT 




• 


integer 


! Unit number of /PRINTER 


1 
t 


DC1 




t 
i 


integer 


! Unit number of /DTACOM1 


1 
1 


DC 2 




i 
■ 


integer 


! Unit number of /DTAC0M2 






ccDCPio Unit Functions and Procedures 

Procedures defined in ccDCPio are: 

! Procedure i Description 

! ccDCPioInit ! Unit initialization 

+ H + 

Functions defined in ccDCPio are: 

+====== = =!===»=:+ = :s-._ _=;_____: __ Bssassasss = ss _ xzzBaxzssszxsE=ss==S'f 

I Function ! Description 

! DCPstatuB ! Get data comm driver status 



! DCPrdr-ret ! Get input buffer free space 

+ y. 

! DCPwrFree ! Get output buffer free space 



(continued on next page) 
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Functions defined in ccDCPio (continued) 



• Function ! Description 

! DCPbaudRate ! Set data comm driver baud rate 



ssssssss-f 






! DCPparity 



Set data comm driver parity 



! DCPcharSize ! Set data comm driver character size 



! DCPhandShake 



Set data comm driver protocol 



! DCPgetUnitNo 



Get current driver unit 



! DCPsetUnitNo 



Select current driver unit 



! DCPrdStatus 



Get input buffer status 



! DCPwrStatus 



Get output buffer status 



i DCPautoLF 



Toggle auto linefeed switch 



! PrtDataCom 



Set printer driver data comm port 



! PrtTblStatus 

+ 



Get printer status <CPI/LPI) 
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ccDCPioInit Procedure 



ccDCPioInit initializes the ccDCPio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccDCPioInit; 

An example of this procedure is: 

ccDCPioInit; 

Boolean variable PrtAvail is TRUE if the printer driver is loaded 
and assigned the device name /PRINTER. Otherwise, PrtAvail is 
FALSE. 

Boolean variable DClAvail is TRUE if the data comm driver is 
loaded and assigned the device name /DTACOM1. Otherwise/ 
DClAvail is FALSE. 

Boolean variable DC2Avail is TRUE if the data comm driver is 
loaded and assigned the device name /DTAC0M2. Otherwise, 
DCSAvail is FALSE. 
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DCPstatus Function 



DCPstatus returns the current data comm driver parameters. The 
definition of this function is: 

FUNCTION DCPstatus (var BaudRate, Par ity. DataComm. 

CharSize. Protocol : integer): integer; 



Parameter 
BaudRate 



Data Type ! Description 

integer ! Current baud rate code 



Parity 



integer 



! Current parity code 



DataComm 



integer 



i Current data comm port code 



CharSi ze 



integer 



! Current character size code 



Protocol ! integer 



! Current protocol code 

-+ 



The function returns the IORESULT from the data comm driver. The 
five parameter values are also returned in the specified integer 
variables. The parameter codes are defined in the ccDCPio 
constants section. 

An example of this function i r. 

var l(J i t : i ntcti ( r , 

curPaud, curFarity. curDtaCom, curChSize, curProto: integer; 

IOst := DCPstatus < curBaud. curPar i ty » 

curDtaCom, curChSize. curProto); 
if IOst <> 

then uiriteln ('DataComm error: ',iost:l>; 
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DCPrdFree Function 

DCPrdFree returns the number of unused bytes in the data comm 
driver input buffer in the specified integer variable. The 
definition of this function is: 

FUNCTION DCPrdFree <var FreeBytes: integer): integer; 

I Parameter i Data Type ! Description ! 

fSSSS:S8tSaSSS4.BSB = ElBaaE!SISBBK-faBia:aEESSBaigBBEBBnEBHSSnBSBflERK£ESS> 

i FreeBytes ! integer ! Space remaining in data comm ! 
! ! ! driver input buffer ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
integer variable FreeBytes contains the number of unused bytes in 
the data comm driver input buffer. 

An example of this function is: 

var IOst, spacel eft : integer; 

IOst := DCPrdFree (spaceleft); 
if IOst ~ O 

then writeln ( 'DataComm input buffer space = 'i spaceleft : 1 ) 

else writeln ('DataComm error: '»iost:l); 
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DCPwrFree Function 



DCPwrFree returns the number of unused bytes in the data comm 
driver output buffer in the specified integer variable. The 
definition of this function is: 

FUNCTION DCPuirFree (var FreeBytes: integer): integer; 

I Parameter i Data Type ! Description ! 

! FreeBytes ! integer S Space remaining in data comm S 
■ ! ! driver output buffer ! 

+ h + + 

The function returns the IORESULT from the data comm driver. The 
integer variable FreeBytes contains the number of unused bytes in 
the data comm driver output buffer. 

An example of this function is: 

var IOst. spacel ef t : integer; 

ICJst := DCPuirFree (spaceleft); 
if IUst - O 

then turiteln ( 'DataComm output buffer space = '> spaceleft: 1 ) 

else turiteln ('DataComm error: ',iost:l>; 
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DCPbaudRate Function 



DCPbaudRate sets the data comm driver baud rate. The definition 
of this function is: 

FUNCTION DCPbaudRate (BaudRate: integer): integer; 

! Parameter J Data Type ! Description ; 

I BaudRate i integer I Printer baud rate code ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
data comm driver baud rate is set to the specified baud rate. 
The baud rate code is one of the following: 



Code Identifier 
Baud 300 



Baud600 



Baud 1200 



Baud 24 00 



Baud4800 



Bat;d9600 



Baud 19200 



Value 



300 baud 



Description 



600 baud 



1200 baud 



2400 baud 



4800 baud 



9600 baud 



6 ! 19200 baud 

h 



+ + 

An example of this function is: 

var IOst<rate: integer; 

rcite : = Baud9600; 

IUst := DCPbaudRate (rate); < set baud rate to 9600 > 

if IOst <> O 

then writeln < 'DataComm error: '.iost:l); 
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DCPparity Function 



DCPparity sets the data comm driver parity. The definition of 
this function i s : 

FUNCTION DCPparity (Parity: integer): integer; 

! Parameter ! Data Type ! Description ! 

! Parity ! integer ! Printer parity code ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
data comm driver parity is set to the specified parity. The 
parity code is one of the following: 

! Code Identifier ! Value ! Description 
! ParDisabled i O ! No parity 



ParOdd ! 1 ! Odd parity 



+ + + 

! ParEven ! 2 ! Even parity 



+ + + 

i ParMarkXNR ! 3 '• Transmit mark parity (receive 
; ! ! parity expected, not checked) 



! ParSpaceXNR ! 4 ! Transmit space parity (receive 
; ; ! parity expected, not checked) 



+ + + 

! Parity is separate from word size 



Both ParMarkXNR and ParSpaceXNR expect a parity on receive for 
character framing. However, the parity check is disabled. 

An example of this function is: 

var IDst, parity: integer; 

parity : = ParOdd; 

IOst := DCPparity (parity); < set parity to odd > 

if IOst O O 

then writeln ( 'DataComm error: ',iost:l); 
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DCPcharSize Function 



DCPcharSize sets the data comm driver character size. The 
definition of this function is: 

FUNCTION DCPcharSize (CharSize: integer): integer; 

! Parameter ! Data Type ! Description 

! CharSize ! integer ! Printer character size code ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
data comm driver character size is set to the specified character 
size. The character size code is one of the following: 

! Code Identifier ! Value ! Description 

! CharSz8 i 18 bit characters 



! CharSz7 I 1 \ 7 bit characters 

+ + + 

I Character size does not include parity 



+- 



Parity is generated by the UART separate from character size. 

An example of this function is: 

var IOst) charsi ze: integer; 

charsize := CharSzB; 

IOst := DCPcharSize (charsize); < set character size to 8 > 

if IOst <> O 

then writeln < 'DataComm error: Viost:l); 
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DCPhandShake Function 

DCPhandShake sets the data comm driver protocol. The definition 
of this function is: 

FUNCTION DCPhandShake (Protocol: integer): integer; 

! Parameter ! Data Type ! Description ! 

! Protocol ! integer I Printer protocol code ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
data comm driver protocol is set to the specified protocol. The 
protocol code is one of the following: 

4-ss=!B:B:B;s:B;SESSx:s;ssssxsBSBEE4-B=B=BSB:B:B:E=4.s:B:Essss;s:B:r:sEB:BEKSEseSBSB;sESESEE:sssESBSB3ZEs;slBa:=B; + 

! Code Identifier ! Value ! Description ! 

! LineCTSinverted ! ! Clear to send - inverted ! 

+ + + + 

! LineCTSnormal ! 1 ! Clear to send - normal ! 

+ + + + 

! LineDSRinverted ! 2 ! Data set ready - inverted ! 

+ + + + 

I LineDSRnormal ! 3 ! Data set ready - normal ! 

+ h + + 

! LineDCDinverted ! 4 ! Data carrier detect - inverted ! 

+ + + + 

! LineDCDnormal ! 5 ! Data carrier detect - normal ! 

+ + + + 

! XonXoff ! 6 ! X-on/X-off character protocol ! 

+ + + + 

! EnqAck ! 7 ! Enq/Ack character protocol ! 

+ + + + 

! EtxAck ! 8 ! Etx/Ack character protocol ! 

+ + + + 

I NoProtocol i 9 .'No character protocol i 

+ + + + 

i Inverted is busy when O; normal is busy when 1 ! 

+ + 
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Line protocols use hardware control lines from the printer. 
Character protocols only exist on printers with the ability to 
transmit data. , 

An example of this function is: 

var IOst. protocol : integer; 

protocol : — LineCTSnormal ; 

IOst := DCPhandShake (protocol); < set protocol to CTS normal 

if IDst O 

then writeln ('DataComm error: 'j lost: 1); 



DCPgetUnitNo Function 



DCPgetUni tNo returns the current driver unit code. The 
definition of this function is: 

FUNCTION DCPgetUnitNo: integer; 

The function returns the current driver unit code. The current 
driver unit code is one of the following: 

! Identifier i Value ! Description ! 

! PrinterUnit ! O ! Printer ! 



! DtaComlUnit 

+ 

! DtaCom2Unit 



i DataComm 1 

-+ 

! DataComm 2 



! DCPinvUnitNo 

+ 



-1 I Unit number not set 



An example of this function is: 
var CurUnit: integer; 



CurUnit := DCPg etUn i tNo; 

Ccite CurUnit of 

PrinterUnit 

DtaComlUnit 

DtaCom2Uni t 

DCPinvUnitNo 

end 



writeln ('Current unit is Printer'); 

writeln ('Current unit is DataComm 1'); 

writeln ('Current unit is DataComm 2'); 

writeln ('Unit number not set'); 
<case> 
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DCPsetUnitNo Function 



DCPsetUnitNo selects the current driver unit. The definition of 
this function is: 

FUNCTION DCPsetUnitNo (UnitNo: integer): integer; 

! Parameter ! Data Type ! Description ! 

! UnitNo ! integer ! Driver unit code ! 

+ + + + 

The function returns the IORESULT from the data comm driver. The 
current driver unit code is one of the following: 

' Identifier ! Value ! Description ! 

! Pri ntcrUni t ! O ! Printer ! 

+ + + + 

! DtaComlUnit ! 1 ! DataComm 1 ! 

•h + + + 

! DtaCom2Unit ! 2 ! DataComm 2 ! 

+ + + + 

An example of this function is: 

var IOst. integer; 

ICJst := DCPsetUnitNo (Pr interUni t ) ; 
if IOst O O 

then uiriteln ('DataComm error: 'iiost.1); 
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DCPrdStatus Function 



DCPrdStatus returns the data comm input buffer status 
information. The definition of this function is: 

FUNCTION DCPrdStatus (var RDst: RdBuf Status ) : integer; 

! Parameter ! Data Type ! Description ! 

I RDst ! RdBufStatus I Status record i 

+ + + + 

The function returns the IORESULT from the data comm driver. 

An example of this function is: 

var IOst: integer; Rstatus: RdBufStatus; 

IOst := DCPrdStatus (Rstatus); 
with Rstatus do begin 

end; 



DCPuirStatus Function 



DCPwrStatus returns the data comm output buffer status 
information. The definition of this function is: 

FUNCTION DCPwrStatus <var WRst: WrBuf Status ) : integer; 

! Parameter ! Data Type i Description ! 

I WRst I WrBufStatus ! Status record 

+ + +- + 

The function returns the IORESULT from the data comm driver. 

An example of this function is: 

var IOst: integer; Wstatus: WrBufStatus; 

IOst := DCPwrStatus (Wstatus); 
with Wstatus do begin 

end; 
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DCPautoLF Function 



DCPautoLF toggles the current driver unit auto linefeed switch. 
The definition of this function is: 

FUNCTION DCPautoLF: integer; 
The function returns the IORESULT from the data comm driver. 
An example of this function is: 

var IOst: integer; 

IOst : = DCPautoLF; 
if IOst <> O 

then writeln ( 'DataComm error: ', iost: 1); 
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PrtDataCom Function 



PrtDataCom set the printer driver data comm port. The definition 
of this function is: 

FUNCTION PrtDataCom (Port: integer): integer; 

I Parameter ! Data Type ! Description ! 

I Port ! integer ! Printer data comm port code ! 

+ + +_, + 

The function returns the IORESULT from the printer driver. The 
printer driver data comm port is set to the specified port. The 
data comm port code is one of the following: 

! Code Identifier ! Value ! Description | 

! Portl ! o i Data comm port 1 

+ + + __ + 

! PortH j 1 ! Data comm port 2 ! 

+ + + __ ; + 

An example of this function is: 

var IOst, port: integer; 

port : = Port2; 

IOst := PrtDataCom (port); -C set data comm port to 2 > 

if IOst O O 

then writeln ( 'DataComm error: ', iost: 1); 
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PrtTblStatus Function 



PrtTblStatus returns printer driver status information. The 
definition of this function is: 

FUNCTION PrtTblStatus (var CPI, LPI: integer): integer; 

! Parameter i Data Type ! Description ! 

! CPI I integer i Current printer chars/inch ! 

+ + + + 

! LPI ! integer ! Current printer lines/inch ! 

+ + + + 

The function returns the IORESULT from the data comm driver. CPI 
is set to either 10 or 12. LPI is set to either 6 or 8. 

An example of this function is: 

var IOsti cpii lp i : integer; 

IOst := PrtTblStatus (cpi.lpi); 
if IOst <> O 

then writeln ( 'DataComm error: ',iost:l); 
writeln ('Printer driver is set to ',cpi:l, 

' chars/inch and '■ lpi: 1» ' lines/inch'); 
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The Volume Directory Unit 
ccDIRio 



' '!-: e Volume Directory Unit is used to read and write volume 
■•'.rectories Directories may contain either MSB first integers 
( COOS format) or [.SB first integers (UCSD format). The unit 
■-. onverts the directory integers to true integers if needed. 



*##**•# NOTF **#*•*# 
WRITING VOLUME. DIRECTORIES IS NOT RECOMMENDED. 

* K- # * # * # # #* ■* # # # # d- * * 

The ciDIKiO un.it USES no other units. 
The unit is included in user software by declaring: 
USES <*U /CCUT 1L/CCL1B> ccDIRio; 



ccDIHio Unit Constants 

Constants defined in ccDIRio are: 



! Identifier 
! BlockSize 



S3B5S = =:3= = S=S 






Value I Description 
512 ! Number of bytes in data block 



I VIDlenqth 



7 ! Volume ID string length 



! TIDlength 



15 ! File ID string length 



! MaxDirEnt i 77 ! Maximum number of directory entries 

+ + + h 
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ccDIRio Unit Types 

Data types defined in ccDIRio are: 



EXS»EXS3 



! Data Type ! Description 

I DirRange ! Directory record index range 









! 0. . MaxDirEnt; 


! VID ! Volume ID string 


! stringCVlDlengthD; 


! TID ! File ID string 


! stringCTIDlengthl; 


! FileKind ! File type 

! UntypedFile ! S Directory header 


! XDskFi le ! 1 .' . . . unused 


! CodeFile ! 2 ! UCSD p-System code file 
! TextFile 1 3 I Text file 


! Inf oFi lo ! 4 I ... unused 


! DataFile ! 5 i Data file 


! GvafFile ! 6 ! . . . unused 


! FotoFi lo ! 7 ! . . . unused 


! SecurDir ! S ! Directory header 
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! Data Type I Description 

! DateRec ! System date record 



BSaacssaeKKssassisaS'f' 



raaessssssrxs-f 



pac ked record 

year: 0. . 100; -C 100 = temp file flag > 

day: 0.31; 

month: 0. . 13; -C = date not meaningful > 



Volume directory record 



i DirEntry 

+ H h 

packed record 
firstblock: integeri 
nextblock: integeri 
MarkBit: boolean; 
filler: 0. . v 2047; 
case fkind: FileKind of 

5ECURDIR, UNTYPEDFILE: 



<dvid: 
deovb lock: 
dnumf i les: 
dloadtime: 
dlastboot: 
MemFl i pped 
DskFl ip ped 



VID) < Disk volume name 

integeri <. Last block of volume 

integer; -C Number of files 

integer; < Time of last access 

DateRec; < Most recent date 

boolean; -C TRUE if flpd in memory 

boolean); -C TRUE if flpd on disk 



XDSKFILE, CODEFILE, TEXTFILE, INFOFILE, 
DATAFILE, GRAFFILE, FOTOFILE: 



(dtid: 
dlastbg te: 
daccess : 



TID; < 

1. . BlockSize; •£ 
DateRec); -C 



Title of file > 

Bytes in last block > 
Last modification date > 



! Directory ! Volume directory 

+ — + + 

! array LDirRangeD of DirEntry; 

+ 
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ccDIRio Unit Variables 

Variables defined in ccDIRio are: 
None. 



ccDIRio Unit Functions and Procedures 

Procedures defined in ccDIRio are: 

! Procedure/Subroutine ! ! 

+ + + j 

! Pascal ,' FORTRAN ! Description ! 

.none ! Unit initialization 1 

+ h + h 

! GetVolDir ! ... none ! Read volume directory ! 

H H H + 

! PutVolDir ! ... none ! Write volume directory ! 

+ + + + 

Functions defined in ccDIRio are: 
None. 



lUufcrjf. TccDIRioInit "T 



ccDIRioIni.t Procedure 




ccDIRioInit initializes the ccDIRio unit. This procedure may be 
called before any other procedures in this unit are called. The 
definition of this procedure is: 

PROCEDURE ccDIRioInit; 
Currently, this procedure does nothing. 
An example of this procedure is: 

ccDIRioInit; 
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GetVolDir Procedure 



GetVolDir reads the directory of the specified volume, 

definition of this procedure is: 

PROCEDURE GetVolDir < VolID: VID; 

var VolDir: directory. 

var VolBlocked: boolean; 

var VolDevNo: integer; 

var VolValid: boolean); 



The 









! Parameter ! Data Type 






! VolID 



VID 



Description 



Volume name 



! VolDir 



! directory 



Volume directory 



! VolBlocked! boolean 



Volume blocked flag 



! VolDevNo i integer 



Volume unit number 



! VolValid ! boolean 



Volume directory valid flag 



This procedure reads the directory of the volume specified by 
VolID into the VolDir data area. VolBlocked is TRUE if the 
volume is blocked (a dit-k volume), FALSE otherwise. VolDevNo is 
the system unit number of the specified volume. VolValid is TRUE 
if the volume directory is valid, FALSE otherwise. 
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v< 



A simple program to display the file names contained in a 
specified volume illustrates the use of this procedure. 

program dirlist; 

uses -C*u /ccuti 1/ccl ib> ccDIRio; 

var d: directory; 

VolName: VID; 

Bl kFlg, ValFlg : boolean; 

DevNbrii: integer; 
beg in 

ccDIRioInit; 

writeln; write ('Enter volume name: '); 
readln (VolName); 

GetVolDir (VolName, d, BlkFlg, DevNbr, ValFlg); 
if not ValFlg then begin 

writeln ( ' Inval i d volume name specified ....'); 

exit (dirlist); 

end; 
wr i te In; 

writeln ('Volume is mounted on system unit ', DevNbr: 1); 
if not BlkFlg then begin 

writeln ('Volume is not blocked .... '); 

exit (dirlist); 

end; 
writeln ('Volume ', d LCO. dvid, ' contains ', 

dLCO. dnumf iles: 1, ' files '); 
write ('Directory type = '); 
if dCCO. DskFlipped 

then write ( 'UCSD ') else write ( 'CCOS '); 
case dt03. f k ind of 

untypedfile: writeln ('untyped'); 

securdir: writeln ('secure directory'); 
end ; 
for i :- 1 to d CO], dnumf i 1 es do begin 

writeln ( ' ', dt i3. dtid ); 

end; 
end. 
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PutVolDir Procedure 



PutVolDir writes a volume directory. Use of this procedure is 
NOT recommended. The definition of this procedure is: 

PROCEDURE PutVolDir (var VolDir: directory; 

VolDevNo: integer); 

I Parameter ! Data Type ! Description 

! VolDir ! directory ! Volume directory 



! VolDevNo I integer I Volume unit number 

+ + + 

This procedure writes the directory. VolDir. to the volume 
mounted on system unit VolDevNo. 

An example of this procedure is: 

var NetuUnit: integer; 

NeiuDir: directory; 

PutVolDir (Neu/Dir, NeuiUnit); 
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Volumes reside on a blocked device, a disk. Each volume has a 
device (volume) directory which contains information about the 
volume and the files within that volume. A complete directory is 
an array of 78 directory entries/ the firr.t record being the 
header record which describes the specific volume. The other 77 
entries are for the files. 

The diagram below illustrates the layout of a single directory 
record. The upper section is common to all directory entries. 
In the lower section, the entries on the left side correspond to 
a volume header record and those on the right side correspond to 
a file record. 



Directory Record Format 



! Byte : ! 

! Volume Header Record 1 Offset ! File Record ! 

! First block ! O! First block ! 

+ n + *■ 

! Next block ! 2 ! Next block ! 

+ + + + + + 

! File Kind ! ...unused ! 4 ! File Kind ! ...unused ! 



+ + 

Disk volume name 

+ — — + — 

(2) 

+ — — + — 

(4) 

(6) 



Last block 
Number of files 
Last access 
Last boot 



(1 > 

h 

<3> 

1. 

(5) 

h 

(7) 



Mem flipped ! Disk flipped 
+ 

. . . unused 



6 ! File name 

+ — — + — 

8 1(2) 

^ — -t 

30 ! (1 ) 

1? ! (6) 

+ — --+ — 

14 : ca) 
16 : (io) 
18 : < 12) 

20 1(14) 

+ + — 

22 ! Last byte 

+ 

24 ! Last access 



( 1 ) 

(3) 

(5) 
— + 

(7) 

(9) 

(11 ) 

— + 
( 13) 

(15) 
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The elements in a directory record are: 

FIRST BLOCK 

is a word quantity which is the block number of the first 
block for the volume or file. This field is zero in the 
volume header record and the first block number of the file 
in file records. 

NEXT BLOCK 

is a word quantity which is the block number of the next 
available block for the volume or file. For the volume 
header record, this is the first block number after the 
volume directory which is normally block 6. For file 
records, this is the last block number of the file plus one. 

FILE KIND 

is a four-bit quantity which is the kind of file that the 
record describes. The values of file kind that are of 

interest arc: 

O - a volume directory header, 

a - a UCSD p-System code file, 

Ci - a text file, 

5 - a data file, 

8 - is also a volume directory header. 

The file kind field is followed by 12 bits of unused space to 

fill up the word. The following sections describe the 

different layouts of a directory record depending on the file 
kind field. 
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Directory Volume Header Record 



If the FILE KIND field in the directory record indicates that 
this record is s volume header record, the following fields are 
va 1 i d : 

VOLUME NAMI- 

is a 8-byte field containing the volume name. The first byte 
contains the length of the volume name. The remaining 7 
bytes are the characters of the volume name, ie, a seven 
character string. 

LAST IU OCK 

if- a word quantity which is the number of the last available 
block on this volume. 

NUMBER OF FILES 

is a word quantity which is the number of files on this 
volume. 

LAST ACCESS 

is a word quantity which is not used - it is set to zero. 

LAST BUfiT 

ie a word quantity wh ich contains the most recent setting of 
the date. This word is in fact a date record. 

NCMORY FLIPPED 

is a boolean quantity used only by the system. 
DISK FL IPPED 

is a boolean quantity used only by the system. 

There are two unused bytes at the end of the volume header 
record. 



September 1, 1983 Copyright 1983 Corvus Systems. Ir.c 



Corvus Concept Pascal System Library ccDIRio 

Volump Directory Unit Page 6-11 



Directory File Record 



If the FILE KIND field in the directory record indicates that 
this record is a file record) the following fields are valid: 

FILE NAME 

is a 16-byte field containing the file name. The first byte 
contains the length of the file name. The remaining 15 bytes 
are the characters of the file name/ ie, a 15 character 
string. 

LAST BYTE 

is. a word quantity which is the number of bytes in the last 
block of the file. 

LAST MODIFICATION DATE 

is a word quantity containing a date record representing the 
last time that this file was changed. 
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The Graphics Display Unit 
ccGRF io 

The Graphics Display Unit is used to interface with the graphics 
functions of the display driver. 

The ccGRFio unit USES unit ccDEFN. 

The unit is included in user software by declaring. 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccGRFio; 



ccGRFio Unit Constants 



The following tables describe the Mode and Qualifier values for 
the SetQrigin, PlotPoint< and DrawLine procedures. Constants 
defined in ccGRFio are: 



Mode Values for PlotPoint and DrawLine Procedures 









Identifier ! Value 



GrfMwhite 



Descr ipti on 






Draws white pixels 



GrfMblack 



Draws black pixels 



GrfMflip ! 



Draws inverse of screen pixels 
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Qualifier Values for SetOrigin Procedure 

! Identifier ! Value ! Description ! 

! GrfQgrRel i 1 ! Set origin relative to current ! 
i i ! graphics origin I 

+ + + + 

! GrfGgrAbs : 2 ! Set origin to absolute graphics ! 

! ! ! coordinates ! 

+ + + + 

! GrfGchRel ! 3 ! Set origin relative to current ! 
! ! ! character cursor position ! 

+ + + + 

! GrfQchAbs ! 4 ! Set origin to character cursor ! 
! ! ! posit i on ( Xi y ) > 

+ + + + 

ccGRFio Unit Types 

Data types defined in ccGRFio are: 
None. 

ccGRFio Unit Variables 

Variables defined in ccGRFio are: 

! Variable ! Data Type ! Description ! 

! GrfPicBuf ! pWords ! Graphics picture buffer pointer ! 

+ + + + 

! GrfPicPtr ! pBytes ! Graphics picture data pointer i 

+ + + + 

'. GrfPicWd ! integer ! Graphics picture width (pixels) ! 

+ + + + 

! GrfPicHt ! integer ! Graphics picture height (pixels) ! 

+ + + + 

! GrfPicLn ! longint ! Graphics picture data size (bytes)! 

+ + + + 
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ccGRFio Unit Functions and Procedures 
Procedures defined in ccGRFio are: 



Procedure 

SSSSBatSSBBSs 

ccGRFioInit 



Description 

Unit initialization 



SSSrB = 3E=S = = = =:-f 



ccGRFioTerm 



SetOr igin 



PlotPoint 



DrawLine 



FiUBox 



CopyBox 



ReadBy tes 



WriteBytes 



RelGrfPic 



Unit termination 



Set graphics origin 



Plot display screen point 



Draw display screen line 



Fill display screen area 



Move display screen data 



Move data from display screen (one line) 



Move data to display screen (one line) 



Release graphics picture buffer 



Functions defined in ccGRFio are: 






Procedure 



AloGrfPic 



Description 



Allocate graphics picture buffer 






RdDisp 



Move data from display screen (rectangle) 



WrDisp 



Move data to display screen (rectangle) 



DspToDsk 



Move data from display screen to disk file 



DskToDsp 



Move data from disk file to display screen 
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ccGRFioInit Procedure 



ccGRFioInit initializes the ccGRFio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccGRFioInit; 

An example of this procedure is: 

ccGRFioInit; 



ccGRFioTerm Procedure 



ccGRFioTerm terminates the ccGRFio unit. This procedure is 
called prior to program termination. The definition of this 
procedure is: 

PROCEDURE ccGRFioTerm; 

The procedure releases the graphics picture buffer if one is 
allocated. An example of this procedure is: 

ccGRFioTerm; 
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SetOrigin Procedure 



SetOrigin sets the graphics origin. The definition of this 
procedure is: 

PROCEDURE SetOrigin (NewX, NewY, Qual : integer); 



I Parameter ! Data Type 

+SSSSSSSBSSS4S22! 



Description | 

I NewX ! integer ! New graphics origin ! 

+ (graphics coordinates) ! 



+ 

I NewY 

+ 



I integer 



Qual 



integer 



Qualifier code from table belowj 



The procedure sets the current graphics origin to the specified 
coordinates. Qual is one of the qualifier values described 
below: 






! Identifier ! Value i Description 

! GrfQgrRel ! l i Set origin relative to current 
I I I graphics origin 



I GrfQgrAbs ! 


2 


1 Set origin to absolute graphics 


! ! 




! coordinates 


I GrfQchRel ! 


3 


! Set origin relative to current 


I i 




I character cursor position 


! GrfQchAbs I 


4 


i Set origin to character cursor 


! I 




! position < x, y ) 



For a more detailed explanation of these values, please refer to 
the "Corvus Concept Operating System Manual. " 

An example of this procedure is: 

SetOrigin (0, O. GrfQgrAbs ) ) -C set origin to graphics 0.0 > 
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PlotPoint Procedure 



PlotPoint displays one point on the display screen. The 
definition of this procedure is: 

PROCEDURE PlotPoint < Xcoord, Ycoord, Mode: integer); 



Parameter 
Xcoord 



Ycoord 



Mode 



Data Type 

integer 

integer 



Description ! 

Point at which to plot point ! 
+ (graphics coordinates) ■ 



integer 



Mode code from table below 



The procedure sets the indicated pixel based on Mode, 
one of the mode values described below: 

+SSSSSSS5&SBS+BS8XS3C+SSBBtBBBBSSEBISSBB8aMSB3B89 

! Identifier ! Value ! Description 

+. == ssaE=sas==aBSi«=B3aE+s!===s*!===SB!4.5sas=s==EEaB=sBBaBa=»aeBs=asasBBasw«aBB=sB»!B=xss 

! GrfMwhite ! 1 ! Draws white pixels 



Mode is 



======+ 






! GrfMblack 



! Draws black pixels 



! GrfMflip 



! -1 



! Draws inverse of screen pixels 



An example of this procedure is: 

PlotPoint ( 100, 100. GrfMwhite); < plot white point at 100.100 > 
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DrawLine Procedure 



DrauiLine drains a line on the display screen. The definition of 
this procedure is: 

PROCEDURE DrawLine (StartX, StartY. 

EndXi EndYi Mode: integer); 

I Parameter ! Data Type I Description 

! StartX I integer ! Starting point of line 

+ + + relative to graphics origin 

I StartY I integer i (graphics coordinates) 

+ + + 

! EndX ! integer i Ending point of line 

+ ■+ + relative to graphics origin 

I EndY ! integer ! (graphics coordinates) 

+ + + 

> Mode ! integer ! Mode code from table below 

The procedure draws a line from the starting graphics coordinate 
to the ending graphics coordinate. Mode is one of the mode 
values described below: 

I Identifier ! Value I Description 

! GrfMwhite ! 1 I Draws white pixels 



! GrfMblack ! O ! Draws black pixels 

+ + + 

I GrfMflip ! -1 ! Draws inverse of screen pixels 

+ + + + 

An example of this procedure is: 

DrawLine (0, O, 100/ 100, Grf Mwh i te ) i •£ draw white line > 

■C from coordinate 0/0 > 
•C to coordinate 100, 100 > 
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Fi 1 lBox Procedure 

FillBox fills a rectangular area on the display screen. The 
definition of this procedure is: 

PROCEDURE FillBox (StartX, StartY, 

Width< Height. Density : integer); 

! Parameter ! Data Type ! Description ! 

! StartX ! integer ! Lower left corner coordinate ! 

+ + + of the area being filled ! 

! StartY ! integer ! (graphics coordinates) ! 

+ + + + 

! Width ! integer ! Pixel width of area ! 

+ + + + 

! Height ! integer ! Pixel height of area ! 

+ + + + 

! Density ! integer ! Pixel density of filled area ! 

+ + + H 

The procedure fills the specified rectangle with pixels of the 
specified density. A density of 1 completely fills the 
rectangle. A density of 2 displays every other pixel. A density 
of 3 displays every third pixel- and so forth. 

An example of this procedure is: 

FillBox (0,0,100,100,3); -C fill every third pixel in > 

{ 100 x 100 pixel area > 
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CopyBox Procedure 



CopyBox copies a rectangular area from one area to another on thi 
display screen. The definition of this procedure is: 

PROCEDURE CopyBox (StartX, StartY, Width, Height, 

NewX, NewY: integer); 



i Parameter ! Data Type 

+ S&X8BBESSES4-3SSEBSSBXBBSI 



StartX 



! StartY 



integer 
integer 



! Description ! 

! Lower left corner coordinate ! 

-+ of the area being copied from I 

! (graphics coordinates) ! 



i Width 



integer 



Pixel width of area 



! Height 



! integer 



I Pixel height of area 



! NewX 

+ 

I NeuiY 
+ 



integer ! Lower left corner coordinate 

+ of the area being copied to 

integer ! (graphics coordinates) 

+ 



The procedure moves screen pixel data from one area to another on 
the display screen. 

An example of this procedure is: 

CopyBox (0, O, lOOi 100, 200, 200); < move a 100 x 100 pixel area > 

■C from coordinates 0,0 > 
■C to coordinates 200,200 > 
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ReadBytes Procedure 



ReadBytes reads a series of pixels from the display screen. The 
definition of this procedure is: 

PROCEDURE ReadBytes (Count: integer; pBuff: pBytes); 

i Parameter I Data Type ! Description ! 

+==s==ssss=s+s:=ssssBB3ssssB+ssssssE&sxssxE*sesaas8ssszsasass+ 

I Count i integer I Number of bytes to move ■ 

+ + + + 

! pBuff ! pBytes ! Screen data buffer pointer i 

+ + -i + 

The procedure moves screen pixel data starting at the current 
graphics cursor position to the buffer pointed to by pBuff. 
Bytes are assembled from the pixels to the right (X direction) of 
the current graphics cursor position. 

Each byte represents eight pixels. Data type pBytes is defined 
in the ccDEFN unit. 

An example of the ReadBytes procedures is included in programming 
example for the WriteBytes procedure (next section). 
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WriteBytes Procedure 



WriteBytes writes a series of pixels to the display screen. The 
definition of this procedure is: 

PROCEDURE WriteBytes (Count: integer; pBuff: pBytes); 

i Parameter ! Data Type ! Description 

! Count 1 integer ! Number of bytes to move 



! pBuff ! pBytes ! Screen data buffer pointer 

+ + + 

The procedure moves pixel data from the buffer pointed to by 
pBuff to the display screen starting at the current graphics 
cursor position. Bytes are moved to the right (X direction) of 
the current graphics cursor position. 

Each byte represents eight pixels. Data type pBytes is defined 
in the ccDEFN unit. 
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An example of the ReadBytes and WriteBytes procedures is 
illustrated in the following trivial program: 

program RdWrScreeni 

■C This program reads a small area of the display screen > 

< into memory and then rewrites the screen with the data > 

< inverted (bottom lines at the top. etc. ) > 

uses -C*u /ccuti 1/ccl ib> ccDEFN, ccGRFio; 

const maxlin = 100/ -C define 100 lines > 

maxcol = 40; -C of 320 pixels (40 x 8) > 

var ScrBuf: arra\j CO. . max 1 in. 0. . maxcol 1 of byte; 
pScrBuf: pBytes; curline: integer; 

beg in 

ccGRFioInit; 

for curline := maxlin downto O do begin 

SetOrigin ( 0. cur 1 ine, Grf QgrAbs ) ; -C set origin > 

pScrBuf := SScrBuf C cur 1 ine. 03; -C get buffer pointer > 
ReadBytes (maxcol. pScrBuf ) ; < get data from screen > 
end; 

for curline := maxlin downto O do begin 

SetOrigin ( 0, max 1 in-cur 1 ine. Grf QgrAbs ) ; -C set origin > 
pScrBuf := QScrBuf Ccur 1 ine. 03; -C get buffer pointer > 
WriteBytes (maxco 1 . pScrBuf ) ; -C get data from screen > 
end; 

end. 
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AloGrfPic Function 



AloGrfPic allocates on the heap a buffer to contain an image of 
the specified size. 

Function AloGrfBuf is essentially a "MARK" using variable 
GrfPicBuf and a "NEW" with a variable allocation size. Function 
RelGrfPic is essentially a "RELEASE" using variable GrfPicBuf. 
Keep this in mind when doing other heap related operations while 
using display screen images. 

The definition of this function is: 

FUNCTION AloGrfPic (Wid th, Height, OvhdLen: integer): boolean; 

! Parameter ! Data Type ! Description ! 

! Width ! integer ! Pixel width of area ! 

+ + + + 

! Height ! integer ! Pixel height of area ! 

+ + + + 

! OvhdLen ! integer ! Buffer overhead length (bytes) ! 

+ h + + 

The function result is TRUE if the buffer is successfully 
allocated or FALSE otherwise. The following variables are set: 

! Variable i Data Type ! Description ! 

i GrfPicBuf ! pWords ! Graphics picture buffer pointer ! 

+ + + + 

! GrfPicPtr i pBytes ! Graphics picture data pointer ! 
! I ! (GrfPicBuf + OvhdLen) ! 

+ + + + 

! GrfPicWd i integer ! Graphics picture width (pixels) ! 

+ + + + 

! GrfPicHt ! integer ! Graphics picture height (pixels) i 

+ h + + 

! GrfPicLn I longint ! Graphics picture data size (bytes)! 
+ + + + 

The buffer is available until the RelGrfPic procedure is called. 
If a buffer is already allocated, procedure RelGrfPic is called 
before allocating a new buffer. The DspToDsk and DskToDsp 
functions use this function when allocating buffer space for 
display screen images. 
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An example of this procedure is: 

var iiudiht: integer; 

wd : = 100; ht : - 100; 
if AloGrfPic (wd, ht, O) 
then begin 

i := RdDisp (Grf PicPtr, 0, O, wd, ht ) ; 
i := WrDisp (Grf PicPtr, 2, 2, wd, h t, 1 ) ; 
RelGrfPic; 
end 
else .... { heap space not available > 



RelGrfPic Procedure 



RelGrfPic releases the display screen image pointed to by 
variable GrfPicBuf. 

Function AloGrfBuf is essentially a "MARK" using variable 
GrfPicBuf and a "NEW" with a variable allocation size. Function 
RelGrfPic is essentially a "RELEASE" using variable GrfPicBuf. 
Keep this in mind when doing other heap related operations while 
using display screen images. 

The definition of this procedure is: 

PROCEDURE RelGrfPic; 

The DspToDsk and DskToDsp functions use this procedure when 
deallocating buffer space for display screen images. An example 
of this procedure is: 

var i/wd/ht: integer; 

wd : = 100; ht : = 100; 
if AloGrfPic <wd,ht,0) 
then begin 

i : ■ RdDisp (GrfPicPtr, O, O, wd, ht ) ; 
i := WrDisp (GrfPicPtr, 2. 2. wd/ ht, 1 ) ; 
RelGrfPic; 
end 
else .... < heap space not available > 



September 1, 1983 Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library 
Graphics Display Unit 



ccGRFio 
Page 7-15 



RdDisp Function 



RdDisp moves data (pixels) from the display screen to the 
specified buffer. The definition of this function is: 

FUNCTION RdDisp (DstBufPtr: pBytes; 
Xcoord. Ycoord. 
Width. Height: integer): integer; 



i Parameter ! Data Type 
! DstBufPtr I pBytes 






! Xcoord 

+ 

I Ycoord 



integer 



integer 



i Width 



I integer 



! Height ! integer 

+ + 



Description 

Destination buffer pointer 






Lower left coordinate of area 
to move (graphics coordinates 
in current window) 



Pixel width of area 



Pixel height of area 



The function returns the status of the move. Valid function 
results are: 



! Identifier ! Value i Description 

! . . . . ! Oi Successful operation 






14 ! Specified area not entirely in 
! current window 

y 



The destination buffer is assumed to be large enough to contain 
the pixel data in the specified area. 

Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 

If the command is successful! the specified buffer contains pixel 
data from the display screen. 
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HINT: If the function result is 14, ensure the graphics origin of 
the current window is correct. 

An example of this function is: 

var i,wd,ht: integer; 

wd : = 100; ht : = 100; 
if AloGrfPic (wd, ht, 0) 
then begin 

i := RdDisp (GrfPicPtr, O, 0, wd, ht ) ; 

if i = then .... < pixels moved successfully > 
else .... -C area not entirely in > 
■C current window > 

i := WrDisp (GrfPi cPtr, 2, 2, wd, h t, 1 ) ; 

if i = then .... -C pixels moved successfully > 
else .... < area not entirely in > 
< current window > 

RelGrfPic; 
end 
else .... { heap space not available > 
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WrDisp Function 



WrDisp moves data (pixels) from the specified buffer to the 
display screen. The definition of this function is: 

FUNCTION WrDisp (SrcBufPtr: pBytes; 
Xcoord, Ycoord, 
Width, Height# Mode: integer): integer; 



+========== 


BS+S 


ssKXB=&:assasasasK+: 




1 


Parameter 




Data Type 




Description 


+s 


:&sssk=s3s: 


K + s:s===ss== = 3ssa«= 


=== + : 


:s:::::s:s>EiiisnaEs::>SE3:srzc 


1 
1 


SrcBufPtr 




pBy tes 




Source buffer pointer 


1 
1 


Xcoord 




integer 




Lower left coordinate of area 
to move (graphics coordinates 












1 
1 


Ycoord 




integer 




in current window) 


1 
1 


Width 




integer 




Pixel width of area 


1 

t 


Height 




integer 




Pixel height of area 


1 
1 

1 
1 

1 
1 


Mode 




integer 




Move mode -1 - XOR data 

- OR data 

1 - AND data 



The function returns the status of the move, 
results are: 



Val id f unc t ion 



! Identifier i Value i Description 

! O i Successful operation 






ss=Bsas«3sssKKsa=saes:sss3sa;=E +■ 






14 ! Specified area not entirely in 
! current window 



If SrcBufPtr is NIL (by specifying POINTER(O)), the specified 
area is filled with every other pixel on. This may be used to 
generate a shaded background. 

Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 

If the command is successful, the display screen contains pixel 
data from the specified buffer. 



Copyright 1983 Corvus Systems, Inc. 



September 1, 1983 



ccGRFio 
Page 7-18 



Corvus Concept Pascal System Library 
Graphics Display Unit 



HINT: If the function result is 14i ensure the graphics origin of 
the current window is correct. 

An example of this function is: 

var i/udiht: integer; 

uid : = 100; ht : = 100; 
if AloGrfPic (wd, ht, O) 
then begin 

i := RdDisp (GrfPicPtri Oi 0, wd, ht ) ; 

if i = O then .... -C pixels moved successfully > 
else .... -C area not entirely in > 

< current window > 
i := WrDisp (Gr f P icPtr, 2. 2, wd, ht, 1 > ; 

if i = O then .... -C pixels moved successfully > 

else .... < area not entirely in > 

< current window > 
RelGrfPic; 

end 
else .... { heap space not available > 
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DspToDsk Function 



DspToDsk moves display screen data (pixels) to the specified disk 
file. The definition of this function is: 



FUNCTION DspToDsk (FilelD: string80; 

Xcoordi Ycoordi 
Widthi Height: integer): integer; 



Parameter I Data Type 



sxzB&Eissa 



isasasssss-f 



IEXSS=+SBSaaBBSBEEaSBf=BESSa 



FilelD 



! stringSO 



Description 






Destination file name 



Xcoord 
Ycoord 



integer 



integer 



Lower left coordinate of area 
to move (graphics coordinates 
in current window) 



Width 



! integer 



Pixel width of area 



Height ! integer 

+ + 



Pixel height of area 



The function returns the status of the move which is the IOresult 
returned from the disk access. Valid function results are. 






Identifier 






Value 



Description 



Successful operation 



Invalid file name 



No room on volume 



Volume not found 



14 



Specified area not entirely in 
current window 



15 



No buffer space available 



16 ! Volume write protected 

+ 



Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 
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If the command is successful, the specified buffer contains pixel 
data from the display screen. 

HINT: If the function result is 14, ensure the graphics origin of 
the current window is correct. 

After writing display data to a disk file, the following 
variables are set until procedure RelGrfPic is called: 



! Variable 
! GrfPicBuf 



! GrfPicPtr 



! GrfPicWd 



! GrfPicHt 



Data Type 



pMords 



ESs+ssssssssssaBssssaEssssasssssasBSCES&ssssssssisiEssssssssssEsssssEssBs-t- 

Descr ipt ion 

SSS5ESSBS535SSSeSSSSSSSSSSSeSSS!MtBSSfSSS!S!SSBSSlSSS!a3S!SSBISSSSSE + 

Graphics picture buffer pointer 



pBy tes 



integer 



integer 



Graphics picture data pointer 



Graphics picture width (pixels) 



Graphics picture height (pixels) 



i GrfPicLn ! longint ! Graphics picture data size (bytes) 



An example of this function is: 

var i.wdiht: integer; 

wd : = 100; ht : = 100; 

i := DspToDsk ( 'DISPLAY '. 0. O, wd, ht ) ; 

if i s then .... < pixels moved successfully > 

else .... -C error processing > 

RelGrfPic; 
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DskToDsp Function 



DskToDsp moves data (pixels) from the specified disk file to the 
display screen. The definition of this function is: 

FUNCTION DskToDsp (FilelD: stringBOi 

Xcoord, Ycoordi 
Mode: integer; 
DispFlg: boolean): integer; 






EBS-fS8SSl 



Parameter ,' Data Type ! Description 



! FilelD 



tX&SSBESKS+SSSSBSl 



! string80 



! Destination file name 






i Xcoord 

+ 

! Ycoord 

+ 



I integer 

-+ 

! integer 



I Lower left coordinate of area 
-+ to move (graphics coordinates 
I in current window) 



Mode 



integer ! Move mode -1 - XOR data 
'< O - OR data 

1 - AND data 



! DispFlg 

+ 



b oolean 



! Display data if TRUE 



The function returns the status of the move which is the IOresult 
returned from the disk access. Valid function results are: 



! Identifier I Value ! Description 

'<■■■- 1 ! Successful operation ; 


' ■ I 7 ! Invalid file name 


■'•••• ! 91 Volume not found ' 


'<■■■■ 1 10 ! File not found ■ 


; ■■•■ ' 14 ! Specified area not entirely in ! 
' > > current window \ 


• ■■ ■ ■ ! 15 i No buffer space available | 



Xcoord and Ycoord are graphics coordinates relative to the 
current window graphics origin of the lower left corner of the 
area to be moved. The area specified must be entirely in the 
current window. 
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If DispFlg is TRUE, data from the specified file is moved to the 
display screen. If DispFlg is FALSE, data from the specified 
file is moved to the allocated buffer, but not moved to the 
display screen. DispFlg FALSE may be used when the size of the 
image is not known. After reading the image from disk. GrfPicWd 
and GrfPicHt may be used in positioning the image on the display 
screen with the WrDisp function. 

If the command is successful, the display screen contains pixel 
data from the specified disk file. 



HINT: If the function result is 14, 
the current window is correct. 



ensure 



the graphics origin of 



After reading display data from a disk file, the following 
variables are set until procedure RelGrfPic is called: 






! Variable : Data Type 






GrfPicBuf 



! GrfPicPtr 



GrfPicWd 



GrfPicHt 



! GrfPicLn 



pWords 



pBy tes 



integer 



integer 



long int 



Description 



Graphics picture buffer pointer 



Graphics picture data pointer 



Graphics picture width (pixels) 



Graphics picture height (pixels) 



Graphics picture data size (bytes) 



An example of this function is: 
var i: integer; 

i := DskToDsp ( 'DISPLAY ', O, O, TRUE) ; 

if i = O then .... < pixels moved successfully > 

else .... -C error processing > 

RelGrfPic; 
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The Function Key Label Unit 
ccLBLio 



The Function Key Label Unit is used to manage the function key 
labels. Function key labels are displayed below the command 
window on the display screen. When the labels are displayed, 
pressing a function key generates a software-defined character 
sequence in the keyboard buffer. This character sequence is 
returned when characters are read from the label manager software 
in the CONSOLE/SYSTERM driver. 

In general, function key labels are initialized by: 

Lblslnit to initialize all label definitions 
LblSet to define label contents (one call for each label) 
LblsOn to display labels and return defined strings 
LblsOff to clear function key label display 

The ccLBLio unit USES no other units. 

The unit is included in user software by declaring: 

USES <*U /CCU't IL/CCLIJ3} ccLBLio; 



tcLBL.io Unit Constants 

Constants defined in ccLBLio are: 



Identifier ! Value ! Description : 

LblKeyLen ! 8 ! Label key text string length : 

+ + ; + 

L.blRtnLen I 16 I Label return text string length ! 

+ + + + 
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ccLBLio Unit Types 

Data types defined in ccLBLio are: 

i Data Type ! Description 

! LblKeyStr ! Label key text string 

+ — + + 

! string CLb IKeyLenJi 

+ h + 

! LblRtnStr ! Label return text string 

+- -+ +• 

! stringLLblRtnLenD; 



E8HSXHSBBSEBS3i7 + 



ccLBLio Unit Variables 

Variables defined in ccLBLio are: 
N o n e . 



;:cLL)Lio Unit Functions and Procedures 

Procedures defined in ccLBLio are: 

! Procedure ! Description ■ 

! ccLBLio In it I Unit initialization 






! ccLBLioTerm ! Unit termination 

+ + 

! Lblslnit ! Initialize labels to blank 



! LblsOn 



! LblsOff 

H 



! Turn on function key labels 

* + 

! Turn off function key labels 

-+ 



Functions defined in ccLBLio are: 

+ =- = =: == = r.==B3T = =:3r + =S=3=BS — BISSSSSSSSrSESGSEBSSSSSKBSSSSSBESBBfiSSSBBEaCSBBSaESSBfil 

! Function ! Description 

+ — — = = =: = =■=: = =S=t=S=s + = =saS = = = =—= =S = SE 9B SS8S3SSSET SIB EX SS BE 3B 3= EBBSBSB! 

! LblSet ! Set label d i sp lay /return strings 

-I + — 



■ BBSSBBBSBBB-f 
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ccLBLioInit Procedure 



ccLBLioInit initializes the ccLBLio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccLBLioInit; 

This procedure initializes the function key labels to blanks and 
return strings to null. This procedure does not turn on the 
function key labels. 

An example of this procedure is: 

ccLDL iolniti 



ccLBLioTerm Procedure 



ccLBLioTerm terminates function key label processing. This 
procedure is called after all function key label processing is 
complete. The definition of this procedure is: 

PROCEDURE ccLBLioTerm; 

This procedure sets the function key labels to blanks and return 
strings to null. This procedure does not turn on the function 
key labels. 

An example of this procedure is: 

ccLBLioTerm; 



Lblslnit Procedure 



Lblslnit initializes all function key label information. The 
definition of this procedure is: 

PROCEDURE Lblslnit; 

This procedure turns off the currently displayed function key 
labels, if any. All function key labels are set to blanks. All 
return strings are set to null. Function key labels are not 
disp lay ed. 

An example of this procedure is: 

Lblslnit; 
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LblSet Function 



LblSet places text to be displayed in the function key label. It 
also defines the text to be returned when the function key is 
pressed. The definition of this function is: 

FUNCTION LblSet <KeyNbr: integer; 

LblStr: LblKeyStr; 

RetStr: LblRtnStr): integer; 



+ -- = = = = -= = = = =+ = = = = = = = === = = = =■(- = = = = = = = = = = = = = = = = = =====: = = = = = =■■ = 

! Parameter ! Data Type ! Description 

! KeyMbr ! integer I Key number code From table 



LblStr 



! LblKeyStr 

- + 

! LblRtnStr 
-+ 



! Function key label text 

- + 

! Function key return data 

-H 



! RetStr 

-i 



Ihis function returns the I/O result code from the label manager 
in the SYSTERM driver. KeyNbr is the key number code for the 
label from the table belom. 

I key ! ! Fl ! F2 ! F3 ! F4 ! F 5 I ! F6 i F7 i FQ ! F9 ! 

! CS ! ! 30 i 31 ; 32 i 33 ! 34 ! ! 35 ! 36 ! 37 ! 38 ! 39 

^ + + ( (. 1 h M 1 1 1 h 

: cu i : so : si : 22 : 23 i 24 i : 25 i 26 : 27 : 20 i 29 i 
+ ++ + + + + ++ + + + + + 

IS ! ! 10 ,' 1 1 ! 12 ! 13 ! 14 ! ! 15 ! 16 ! 17 ! 18 ! 19 ! 

+ + + + + ^ + m (• + + + 1- 

: u : : 00 i 01 : 02 : 03 : 04 : : 05 : 06 : 07 : os : 09 i 

+ ++ + + + + ++ + + + + 1- 

I CS - Command shifted '< 

! CU - Command unshifted ' 

IS - ShJ f trd ! 

! U - Unshifted ' 



LblStr if the string < up to 8 characters) to be displayed in 
function key label when the labels are turned on. RetStr is tnt 
string (up to 16 characters) to generate in the keyboard buffer 
when the corresponding function key is pressed. 
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An example of this function is: 

Rslt := LblSet (9, 'Exit', 'Q'); 

Rslt is the I/O result code from the label manager in the SYSTERM 
driver. This example sets the function label marked FIO to 
display Exit. When function key FIO with no qualifiers is 
pressed after turning on labels, a Q is placed in the keyboar 
buffer. 



LblsOn Procedure 



LblsGn turns the function key labels on once they have been sot 
(see LblSet function). The definition of this procedure is: 

PROCEDURE LblsOn; 

This procedure displays the current function key labels below the 
--""and window on the display screen. Return strings are placed 
' ;-- keyboard buffer when the function keys are pressed. 

h ■■ -x ample of this procedure is: 

LblsOn; 



LblsOff Procedure 



LblsOff turns the function key labels off. 
this procedure is: 

PROCEDURE LblsOff; 



The definition of 



"This procedure clears the display of current function key labels 
below the -eommand window on the display screen. Afterwards, 
pressing function keys have no effect in that no return strings 
are placed in the keyboard buffer when the function key label 1 :, 
are not displayed. The function key definitions are retained. 
LblsOn may be used to redisplay the currently defined function 
key labels. 

An example oF this procedure is: 

Lbl sOf f; 
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The Omninet Interface Unit 
ccOMNio 



The Omninet Interface Unit is used to interface with the Corvus 
Omninet local area network. 

This document does not define the various Omninet operations, but 
details the use of the unit procedures available for interacting 
with the Omninet network. See the "Omninet Programmer's Guide" 
for a detailed description of the Omninet operations. 

The ccOMNio unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USES <*U /CCUTIL/CCL.I13> ccDEFN, ccOMNio; 



ccOMNio Unit Constants 

Constants defined in ccOMNio are: 



Transporter Return Codes (OC result) 

! Identifier i Value I Description : 

I OkCode ! O .'Successful operation : 

+ +■ H + 

! GaveUp ! 128 ! Aborted a send command after ! 

■ ! ! Ma xKetries tries ! 

H 4 1 + 

i TooLong ! 12V ! Last message sent was too long for ! 

■ i Ithereceiver i 

+ h H . + 

! NoSockt ! 130 ! Sent to an uninitialized socket : 

H H 4 + 
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Transporter Return Codes (OCresult) 
( c ont inued ) 









Ident i f ier 



HdrErr 



Value 



131 



Description 






Sender's header length did not match 
receiver's header length 



BadSoc k 



132 



Invalid socket number 



Ituise 



133 



Tried to set up a receive on an 
ac tive socket 



BadlH'St 



134 



Sent to an invalid host number 



r/r . hord 



C m (1 A t p t 



192 



Echo command was successful 



254 



Command accepted 



NoT rans 



255 



Unable to communicate with 
Transporter 



Transporter OPcodes 









Identifier 
HecvOp 



Value ! Description 
*FO ! SETUPRECV opcode 






b e n d p 



$40 ! SENDMSG opcode 



In i tDp 



*20 



I N I T opcode 



EnrtOp 



*10 ! ENDRECV opcode 



Deb Op 



$08 ! PEEK/POKE opcode 



EchoCJp 



WhoPp 



$02 ! ECHOCMD opcode 



*01 ! WHOAMI opcode 
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ccOMNio Unit Typrs 

Data types defined in ccOMNio are: 



! Data Tgpe .' Description 

! pOCrsltRcd ! Result record pointer 






! OCrsltRccI .' Result record 

+ — + 1- 

fsLode; byte; -C command result code > 

Sourc: byte; -C source host number > 

Len: integer; -C received data length > 
UCdta: array CO. . 2553 of byte; 

•C user control data > 



ccOMNio Unit Variables 

Variables defined in ccOMNio are: 



! Variable ! Data Type ! Description I 

-!-=-■==: = = = " = :== H = = =. = = = = = = = = = + = = = = = = = =. = = = = = = = = = = = = = = = = = = = = = = = = = = = + 

I OCresult ! integer ! similar to UCSD Pascal IORESULT, I 
! ! ! may be checked after each command ! 

4 1 + + 

I OCrs.lt ! OCrsltRcd ! Result record which is used for I 
I ! ! all commands except OCsndMesg and ! 

! ! ! OCsetRCcv 



! OCcurBP ! pByte'- 



! Current buffer pointer 



! OCrurRP ! pOCrsltRcd ! Current result pointer 

+ h + 
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ccOMNio Unit Functions and Procedures 

Procedures defined in ccOMNio are: 

■ Procedure ! Description 

! ccOMNioInit ! Unit initialization 



! OCsndMesg ! Send message 

+ h 

! OCsetRecv ! Set up receive 



! OCendRecv ! End receive 

+ + 

! OCinitTrans ! Initialize Transporter 



! OCwhoAml ! Get Transporter number 

+ + 

! OCechoTrans ! Echo to specified Transporter 

+ + 

! OCpokeTrans ! Write to Transporter memory 

+ ^ + 

Functions defined in ccOMNio are: 

+ = = = ===-.=. = = = = =-. 4.s = :r.£rss»sssr.ss = rsEsssxs:sa£»ss:ssssss=rsv:.+ 

[Function ! Description ! 

! OCpeekTranr. ! Peat! from Transporter memory ! 

+ + + 



ccOMNio In it Procedure- — 



ccOMNioInit initializes the ccOMNio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called "I !i t definition of this procedure is: 

PNOCF.DUr<r t cOMNioIniti 

An ex a hi pi r of this procedure is: 

ccUriNi oInit< 
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OCsndMesg Procedure 



OCsndMesg sends a message to the specified host and socket. The 
definition of this procedure is: 

PROCEDURE OCsndMesg (pMesgBuf: pBytes; pRsltBuf: pOCrsltRcd; 

Sc ktNbr, DtaLen, HdrLen, DstHost: integer); 









! Parameter 






I pMesgBuf 



Data Type 



pBy tes 



Description : 

Send data buffer ! 



! pRr, ltRcd 



pOCrsltRcd 



Result record buffer 



be ktNbr 



Dt^l.cn 



integer 



integer 



Dc r;. t i r iii t 1 i ■.»-: :ori-et number in ! 

■ w ; l to 4 : 

4 sockets *00. . *BO) i 

Send data buffer length : 



! HdrLen 



integer 



User control data length 



! DstHost 

+ 



integer 



Destination host number 



!!■■-: procedure attempts to send a message to the destination hott. 
Aftc-r executing the procedure the Rcode field of the specified 
T-esult buffer contains a one byte signed equivalent of the 
command result. Valid command results are: 

I Identifier ! Value ! Description 

I 10.. 127 ! Successful operation (retries) I 

'• ! ! Rcode = O. . 127 ! 



! GaveUp 



128 ! Aborted a send command after 
! Ma xRe tries tries 
! Rcode 



-128 



! TonLong 



! NoSockt 



129 I Last message sent was too long for I 
I the receiver ! 

Rcode = -127 ! 

+ + 

130 ! Sent to an uninitialized socket : 

Rcode = -126 ! 

+ + 
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! Identifier ! Value ! Description > 

I HdrErr ! 131 ! Sender's header length did not ! 

; ! ! match receiver's header length ! 

: ; j Rcode = -125 : 



BadSoc k 



13c 



Invalid socket number 



Rcode 



-UM 



! BadDest 



134 ! Sent to an invalid host number 

. Rcode = -122 



An example of this procedure is: 

vst- Sbuff: array [1..5123 of byte; 
Srslt: OCrsltRtd; 



{ send message buffer > 
-C send result buffer > 



CJCsndMesg (©Sb.uf f . @Srslt, 1, 312, 0, 63 ) ; 

< send to host 63, socket 1 > 

)f Rrslt. Rcode >- then .... < mesg send successfully > 

else .... { error processing > 
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OCsetRecv Procedure 



OCsetRecv prepares the specified socket to receive a single 
message. The definition of this procedure is: 

PROCEDURE OCsetRecv < pMesgBuf : pBytes; pRsltBuf: pOCrsltRcd; 

St- k tNbr, DtaLen/HdrLen: integer); 

I Parameter ! Data Type ! Description • 

! pMesgBuf ! pBytes ! Receive data buffrr i 

+ + + + 

! pRsltRcd ! pOCrsltRcd I Result record buffer : 

+ + + + 

I ScktNbr ! integer I Receive socket number in the ! 
1 ' ! range of 1 to A ', 

'• ' I (1./. 4 =■ sockets *80. .*BO) ! 

+ +~i&W~ + 

! integer I-SflTTTTdata buffer length 



! DtaLen 

+ 



HdrLen 



i n t e g e r 



! User control data length 



The procedure activates the socket to receive a message. After 
executing the procedure the Rcode field of the specified result 
buffer contains a one byte signed equivalent of the command 
result Valid command results are: 



1 d e n t i f i e r 



Value ! Description 

O ! Successful operation 






Rcode = I 



B a d S o c k 



13L"> ! Invalid socket number 



Rcode - -1P4 ! 



I n u s e 



133 I Tried to set up a receive on an ! 
I active soc ket • 

Rcode = -lc'3 ! 



CmdAcp t 



2S4 ! Command accepted 



Rcode 



If the command is accepted successfully, the Rcode field retains 
the value CmdAcpt until a message is received for the socket. 
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An example of this procedure is: 

var Rbuff: array C1..512D of byte; 
Rrslt: OCrsltRtd; 



■C recv message buffer > 
{. recv result buffer > 



OCsetRecv (©Rbuff, ©Rrslt, 1,512,0); 

•C set receive on socket 1 > 
while Rrslt. Rcode = CmdAcpt do; < wait until mesg received > 



if Rrslt. Rcodc 



then . 
else . 



■C mesg received successfully > 
-£ error processing > 



OCendRecv Procedure 



DCendRecv releases the specified socket number. The definition 
of this procedure is: 

PROCEDURE OCeridRtcv (StktNbr: integer); 



! Parameter ! Data Type i Description 






! ScktNbr 



integer 



Receive socket number in the 
range of 1 to A 
(1.4 - sockets *BO. . *B0) 



The procedure disables reception of any more messages for the 
socket until another OCsetRecv command is issued. After 
executing the procedure OCresult contains the command result. 
Valid command result*, are: 






I Identifier ! Value 






! k C o d e 



Descr i ption 



butcessful operation 



! BadSoc k 



13: 



Invalid socket number specified 



An example of this procedure is: 

OCcnclRecv (1); < end receiving on socket 1 <*80) 

if OCresult O then ... < command error 



September 1, 1983 



Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library ccOMNio 

Omninet Interface Unit ■ Page 9 _ 9 



OCinitTrans Procedure 



OCinitTrans initializes the Transporter as in a hardware reset or 
a power-up. The definition of this procedure is: 

PROCEDURE OCinitTrans; 

The procedure sets all parameters to their default values. Event 
counters are set to zero. After executing the procedure OCresult 
contains the Transporter number of the host computer. 

An example of this procedure is: 

var TransNbr: integer; 

OCini tTrans; 

TransNbr := OCresult -C save Transporter number > 



OCwhoAmI Procedure 



OCwhoAmI returns the Transporter number of the host computer. 
The definition of this procedure is: 

PROCEDURE OCwhoAmI; 

After executing the procedure OCresult contains the Transporter 
number of the host computer. 

An example of this procedure is: 

OCwhoAmI ; 

writeln ('The host Transporter number is '< OCr esul t : 2) ; 
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OCechoTrans Procedure 



OCechoTrans requests the Transporter to send an echo packet to 
the specified host. The echo packet is used to verify the 
presence of another network device without disturbing that 
device. The definition of this procedure is: 

PROCEDURE. OCechoTrans (DstHost: integer); 

! Parameter ! Data Type ! Description _ ' 

! DstHost I integer I Destination host number ! 
+ + 1 + + 

The procedure sends an echo packet to Transporter DstHost. 
Transporter DstHost receives the packet and acknowledges without 
informing the attached host computer. After executing the 
procedure OCresult contains the command result. Valid command 
results are: 

! Identifier ! Value ! Description '• 

! GaveUp i 128 i Aborted a send command after ! 

! I ! MaxRetries tries '< 

+ + + + 

! DadDe'.t ! 134 I Sent to an invalid host number ! 

+ + + * 

! Echoed ! 192 ! Echo command was successful i 

+ + + + 

An example of this procedure is: 

OCechoTrans (1); -C is Transporter 1 active? > 

if OCresult = Echoed then ... < Transporter responded > 

els.e ... -C Transporter did not respond > 
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OCpeekTrans Function 



OCpeekTrans is used to examine internal memory of the 
Transporter. See the "Omninet Programmer's Guide" for more 
information on the Transporter peek command. The definition of 
this function is: 

FUNCTION OCpeekTrans (Addr: integer): byte; 

! Parameter I Data Type I Description 

! Addr ! integer ! Transporter memory address ! 

+ + + + 

The function returns a byte of data from location Addr in the 
internal memory of the Transporter. 

An example of this function is: 

var tbyte: byte; 

tbyte := OCpeekTrans (*OOEl); i get number of retries > 



OCpokeTrans Procedure 



OCpokeTrans is used to alter internal memory of the Transporter. 
See the "Omninet Programmer's Guide" for more information on the 
Transporter poke command. The definition of this procedure is: 

PROCEDURE OCpokeTrans (Addr: integer; Value: byte); 

! Parameter ! Data Type I Description : 

• Addr ! integer ! Transporter memory address ! 

+ + + + 

.' Value ! byte ! Data byte to move to the ! 

' ' i Transporter memory ! 

4 4 + : + 

The function moves the byte of Value to location Addr in the 
internal memory of the Transporter. 

An example of this procedure is: 

OCpokeTrans ($OOE1.10>; -C set number of retries > 
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The Omninet Transporter Interface Unit 
ccOTCio 



The Omninet Transporter Interface Unit is used to interface with 
the Corvus Omninet local area network. This unit functionally 
replaces unit ccOMNio. 

This document does not define the various Omninet operations! but 
details the use of the unit functions and procedures available 
for interacting with the Omninet network. See the "Omninet 
Programmer's Guide" for a detailed description of the Omninet 
operations. 

The ccOTCio unit USES no other units. 

The unit is included in user software by declaring: 

USES <*U /CCUTIL/CCLIB> ccOTCio; 

If the Omninet Transporter driver is not loaded, the Transporter 
is used directly and no interrupt processing is performed. This 
is similar to the processing in unit ccOMNio. Currently, the 
Omninet Transporter driver is automatically loaded during system 
initialization on 512k systems. 
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ccOTCio Unit Constants 

Constants defined in ccOTCio sre: 



Omninet Transporter Driver Return Codes 

! Identifier ! Value ! Description 

! TCnotRdy i 21 ! Transporter not ready 



z ss as ac ass s: as + 






1 
1 


TC queued 


■ 
i 


30 


■ 
i 


Command queued warning 


1 

1 


TCentUse 


i 
■ 


52 


■ 
i 


Entry in use error 


1 


TCinvFnc 


i 

i 


56 


i 
i 


Invalid function code error 



Transporter Return Codes 



Identifier 
OkCode 



Value 



BsssasB+sssssxsxa 



Description 



ie=sra=assss=s:ar + 






Successful operation 



GaveUp 



128 



Aborted a send command after 
maximum retries 



TooLong 



129 



Last message sent was too long for 

the receiver 



NoSockt 



130 



Sent to an uninitialized socket 



HdrErr 



131 



Sender's header length did not match 
receiver's header length 



BadSock 



132 



Invalid socket number 



Inuse 



133 



Tried to set up a receive on an 
active socket 



! BadDest ! 134 i Sent to an invalid host number 

+ + + 



(continued on next page) 
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Transporter Return Codes (continued) 

i Identifier I Value ! Description 1 

! Echoed ! 192 i Echo command was successful i 

+ + + + 

! CmdAcpt ! 254 ! Command accepted I 

+ + + + 

! NoTrans ! 255 ! Unable to communicate with ! 

• ! ! Transporter : 

+ + + + 



Index into Transporter Counters 

! Identifier ! Value ! Description ! 

! TCCmiss ! 1 ! Missed packets. Number of ADLC ! 

I I I address present interrupts ! 



1 
1 


TCCcoll 


i 


2 


• 


Number of collision AVOIDANCE 


1 




i 




i 


interrupts 


1 


TCCintErr 




3 


i 


Number of unknown interrupts inside 


1 
1 




i 
i 




i 
i 


Transporter 


1 


TCCrcvErr 


t 


4 


i 

i 


Number of ADLC receive errors 






i 
• 




i 

i 


(CRC/ overrun* etc. > 


1 


TCCmaxCnt 


■ 


4 


■ 
i 


Number of Transporter counters 



Miscellaneous Values 

! Identifier ! Value ! Description 

! TCvers ! n. n ! Unit version number string 



! TCvrs64 ! 100 ! Transporter version *64 number 

+ + + 

! TCvrs8A 1 138 ! Transporter version *8A number 

+— + + 
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ccDTCio Unit Types 

Data types defined in ccOTCio are: 

fssssssssKsssfssasssssBssscnrssssSBSsrcnaBi 

i Data Type ! Description 

! pTCbuffer I Omninet data buffer pointer 

+ + 

! TCbuffer ! Omninet data buffer 

+ — + + 

! array CO. . 327653 of -128. . 127; 



SSKSESXCaSSEEEMISSB-f- 



■ pTCrsltRcd ! Result record pointer 

+ + 

! TCrsltRcd i Result record 



Rcode: byte; -C command result code 
Sourc: byte; -C source host number 
Len: integer; -C received data length 
UCdta: array CO. . 2553 of -128. . 127; 
■C user control data 
j. 



+ — + 

I pTComniCmi 



Omninet command record pointer 



! TComniCmd 

+ — + 

case i 
1: (p: 



Omninet command record 



nteger of 
record 



2: <a: 

+ — + 

! pTCparmBll 



RP: pTCrsltRcd; 

DP: pTCbuffer; 

LN: integer; 

HL: integer; 

end ); 

array CI. . 123 of -128 



result record pointer 
data buffer pointer 
data length 
header length 



127); 



Request parameter block record pointi 
larameter block record 



i TCparmBlk 

+ — h 

pComd: 
pProc: 
pPblk: 
pBuff : 
pRslt: 
oComd : 
rDone: 
rStat: 
rRslt: 



Request pi 



pTComniCmd; < Omninet command pointer 

pTCbuffer; -C interrupt procedure ptr 

pTCparmBlk; < parameter block pointer 

pTCbuffer; < data buffer pointer 

pTCrsltRcd; < result record pointer 

TComniCmd; < Omninet command 

boolean; < request complete if TRUE 

integer; < request status 

integer; -C request result code 



uni t 


> 


user 


> 


unit 


> 


user 


> 


user 


> 


unit 


> 


intr 


> 


intr 


> 


intr 


> 
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i Data Type i Description 

i TChosts i Valid Omninet host numbers 



IBSSSSSSS-f 





! 0. . 63; 




1 
1 


TChostSet 


i Set of Omninet host numbers 




! set of 


TChosts; 


1 

t 


TCcntBuf 


! Transporter counters buffer 




! array 


C 1. . TCCmaxCnt] of longint; 



ccOTCio Unit Variables 

Variables defined in ccOTCio are: 



Variable i Data Type ! Description 

TCtrnVrsn ! integer i Transporter version number 



TRUE if using Omninet driver 



TChaveDrv ! boolean ! 

+ H 

TCcounts ! TCcntBuf ! Transporter counters 



TCadlc ! integer i Status of ADLC at last recv error 

+ + + 
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ccOTCio Unit Functions and Procedures 
Procedures defined in ccOTCio are: 



BBSMBBBBI 



! Procedure I Description 

! ccOTCioInit ! Unit initialization 



I 


ccOTCioTerm 


i 


Unit termination 


1 
1 


TCinitBlk 




Initialize request control block 


1 
1 


TCinterrupt 




Basic interrupt processing 


1 
1 


TCgetCounts 


i 


Update unit Transporter counts 



Functions defined in ccOTCio are: 






i Function i Description 

+SSSSSBSSSSSSS+XSBSSBZSBBSXSBBB 

! TCsetRecv I Set up receive 



! TCsndliesg i Send message 

+ + 

! TCendRecv ! End receive 



! TCuihoAml 



! Get Transporter number 

+ + 

I TCechoTrans ! Echo to specified Transporter 

h + 

! TCpeekTrans ! Read from Transporter memory 

+ + 

! TCpokeTrans ! Write to Transporter memory 

+ h 

! TCsetRetry ! Set Transporter retry count 

+ + 

! TCnetMap ! Get set of active Transporter numbers 

+ + 
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ccOTCioInit Procedure 



ccOTCioInit initializes the ccOTCio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccOTCioIniti 

The procedure performs the following: 

* Determines if the Omninet Transporter driver is loaded 

* Sets unit Omninet event counters to 

* Gets the Transporter version number 

An example of this procedure is: 
ccOTCioInit; 



ccOTCioTerm Procedure 



ccOTCioTerm terminates the ccOTCio unit. This procedure is 
called prior to program termination. The definition of this 
procedure is: 

PROCEDURE ccOTCioTerm; 

The procedure cancels all outstanding receives set by the current 
program. An example of this procedure is: 

ccOTCioTerm; 
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TCgetCounts Procedure 



TCgetCounts updates the Transporter counters maintained in this 
unit and resets the internal Transporter counters. The 
definition of this procedure is: 

PROCEDURE TCgetCounts; 

Counters maintained in array TCcounts are updated with current 
Transporter values. TCcounts is defined in the global variable 
section of this unit. Offsets within TCcounts are: 

{ Identifier I Value 1 Description ! 

! TCCmiss ! 1 ! Missed packets. Number of ADLC ! 

! ! ! address present interrupts ! 

+ + + + 

! TCCcoll ! 2 ! Number of collision AVOIDANCE ! 
i I ! interrupts ! 

+ + + + 

! TCCintErr ! 3 ! Number of unknown interrupts inside ! 

■ ! ! Transporter ! 

+ + + + 

! TCCrcvErr ! 4 I Number of ADLC receive errors ! 

■ ! ! (CRC. overrun, etc. > ! 

+ H H + 

An example of this procedure is: 

TCgetCounts; 

writeln ('TCCmiss = '. TCcountsCTCCmiss3 : 1 ) ; 

uiriteln ('TCCcoll = '. TCcountsCTCCcol 1 D : 1 ) ; 

writeln ('TCCintErr = ', TCcountsCTCCintErr D : 1 ) ; 

writeln ('TCCrcvErr = '. TCc ountsCTCCrc vErr 3 : 1 ) ; 
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TCinitBlk Procedure 



TCinitBlk initializes the specified request parameter block with 
default values. The definition of this procedure is: 

PROCEDURE TCinitBlk <var ReqBlk: TCparmBlk; 

pResRcd: pTCrsltRcd; 

pDtaRcd: pTCbuffer; 

plntPro: pTCbuffer); 









! Parameter 






! ReqBlk 



i pResRcd 



I pDtaRcd 



Data Type 



! Description 



TCparmBlk 



! Request parameter block 



pTCrsltRcd ! Result record pointer 



pTCbuffer i Data buffer pointer 



! plntPro ! pTCbuffer ! Interrupt processing pointer 

+ + + + 

The procedure initializes the specified request parameter block 
as follows: 



! TCparmBlk ! Request parameter block record 


! pComd ! Pointer to oComd in this record 


! pProc ! Specified interrupt processing pointer 


! pPblk ! Specified request parameter block pointer 


! pBuff ! Specified data buffer pointer 


! pRslt ! Specified result record pointer 


! oComd ! Omninet command (12 bytes of 0> 


! rDone ! FALSE 


! rStat ! 


! rRslt ! 255 <*FF> 
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An example of this procedure is: 



var pblk 
rslt 
buff 
Dsta 



TCparmBl k; 

TCrsltRcd; 

array CI. . 5123 of -128. . 127; 

integer; 



TCinitBlk <pblk, Srslt, ©buff, @TCinterrupt ) i 

■C init parm block > 

Dsta := TCsetRecv (pblk, 1, 512, 0); < set recv on *80 > 

if Dsta O then .... -C Transporter driver error > 
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TCinterrupt Procedure 



TCinterrupt updates the request parameter block with request 
completion information. The definition of this procedure is: 



PROCEDURE TCinterrupt (QueFlg 

DrvSta 
pResRcd 
pDtaRcd 
pReqBlk 



integer; 
integer; 
pTCrsltRcd; 
pTCbuf f er; 
pTCparmBlk >; 






==S3£S=;k=sb:=s= = + 






Parameter 



QueFlg 



DrvSta 



pResRcd 



pDtaRcd 



pReqBlk 



Data Type 



integer 



i nteger 



pTCrsltRcd 



pTCbuf f er 



Description 
Request queued flag 






Driver status 



Result record pointer 



Data buffer pointer 



pTCparmBlk ! Request parameter block pointer! 

H + 



The procedure sets the following fields in the request parameter 
block when a request is complete (QueFlg = O) or when a request 
is terminated with an error (DrvSta <> 0): 



! TCparmBlk ! Request parameter block record (partial) 



! rDone ! TRUE 

+ + 

I rStat ! Returned driver status 



! rRslt 

+ 



! Result code from Omninet result record 

-+ 



This procedure is used by this unit for all functions except 
TCsndMesg and TCsetRecv. TCinterrupt may also be used for simple 
TCsndMesg and TCsetRecv completion processing. 
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TCsetRecv Function 

TCsetRecv prepares the specified socket to receive a single 
message. The definition of this function is: 

FUNCTION TCsetRecv (var ReqBlk: TCparmBlk; 

ScktNbr, DtaLen, HdrLen: integer): integer; 

! Parameter i Data Type ! Description ! 

+SBSXBBSSSBS4.SESSBSBEBSBSSB + »XKBBSBBBEEXBSaCXBSESE=-BSSS=SEf 

! ReqBlk ! TCparmBlk ! Request parameter block ! 

+ + + ^ + 

! ScktNbr i integer ! Receive socket number in the ! 
j ! ! range of 1 to 4 • 

! ! ! (1..4 = sockets *80. .*B0> ! 

+ + +___-_ + 

I -&ter ■- ' 



DtaLen ! integer i -&emJ~data buffer length 



+ +- 



-+ 



! HdrLen ! integer ! User control data length I 

+ + + + 

The function result is the Transporter driver request status. 
After executing the function, the rRslt field of the specified 
request parameter block contains the Omninet command result. 
Valid command results are: 

+ s=s== =: BEE=s=ss=:B:s= + SB=:=sES = =SE!SS + ssr5SEB:E==SBBacB=BBBBBGSlBSEEs:BEEiBia:B«BiBfiBB«s!E=ss=: = =:Es=:s:s=E:-EE4- 

! Identifier ! Value ! Description ! 

! . . . . ! ! Successful operation > 

+ + + + 

! BadSock ! 132 ! Invalid socket number I 

+ + + + 

! Inuse ! 133 I Tried to set up a receive on an i 
! | ! active socket '< 

+ + + + 

! CmdAcpt ! 254 ! Command accepted ! 

+ + + + 

If the command is successful, the rRslt field of the specified 
request parameter block contains the the value CmdAcpt until a 
message is received for the socket. 

If the rRslt field contains CmdAcpt, the rDone field is FALSE, 
otherwise, rDone is TRUE. 

The rDone field of the request parameter block is set to TRUE 
when a message is received for the socket. 



September 1, 1983 Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library ccOTCio 

Omninet Transporter Interface Unit Page 10-13 

The user's interrupt procedure is responsible for updating the 
following fields in the request parameter block: 



! TCparmBlk 


i 
i 


Request parameter black record (partial) 


i 


rDone 


i 


TRUE 


i 
i 


rStat 




Returned driver status 


i 


rRslt 


i 
i 


Result code from Omninet result record 



If only these fields need to be updated in the interrupt 
procedure; the TCinterrupt procedure in this unit may be used as 
the user's interrupt procedure. 

An example of this function is: 

var pblk: TCparmBlk; 

Rbuff: array CI.. 5123 of -128. . 127; -C recv message buffer > 

Rrslt: TCrsltRcd; -C recv result buffer > 

Dsta: integer; 

TCinitBlk (pblk, ©Rrslt, ©Rbuff , @TC interrupt ) ; 
Dsta := TCsetRecv < pb 1 k, 1, 512, O) ; 

•C set receive on socket 1 > 

if Dsta O then .... -C Transporter driver error > 

while NOT pblk. rDone do; -C wait until mesg received > 

if pblk. rRslt < 127 then .... < mesg received successfully > 

else .... -C error processing > 
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TCsndMesg Function 



TCsndMesg sends a message to the specified host and socket. The 
definition of this function is: 

FUNCTION TCsndMesg (var ReqBlk: TCparmBlk; 

ScktNbr. DtaLen, HdrLen. 
DestHost: integer): integer; 

! Parameter ! Data Type ! Description •' 

! ReqBlk ! TCparmBlk ! Request parameter block ! 

+ + + + 

I ScktNbr ! integer ! Destination socket number in ! 
j i ! the range of 1 to 4 • 

! j ! (1..4 = sockets *60. .*B0) I 

+ + + + 

! DtaLen ! integer ! Send data buffer length ! 

+ + + + 

! HdrLen ! integer i User control data length ! 

+ + + + 

! DestHost ! integer i Destination host number ! 

+ + + + 

The function result is the Transporter driver request status. If 
the interrupt procedure pointer in the request parameter block 
(ReqBlk. pProc ) is NIL. the function waits for command completion 
before returning. After executing the function and waiting for 
command completion, the rRslt field of the specified request 
parameter block contains the Omninet command result. Valid 
command results are: 



! Identifier I value ! Description 

j .... j o. . 127 ! Successful operation (retries) 



! GaveUp ! 128 ! Aborted a send command after 
! ! ! maximum retries 

+ + + 

! TooLong ! 129 ! Last message sent was too long for 
! ! ! the receiver 

+ + + 

! NoSockt ! 130 ! Sent to an uninitialized socket 

+ + + 



-+ 



(continued on next page) 
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! Identifier I Value ! Description 






! HdrErr 



131 ! Sender's header length did not 
! match receiver's header length 



i BadSock 



132 ! Invalid socket number ! 

+ + 

134 ! Sent to an invalid host number ! 

+ + 



! BadDest 

+ 



The user's interrupt procedure is responsible for updating the 
following fields in the request parameter block: 



+ + 

! TCparmBlk ! Request parameter block record (partial) 



! rDone ! TRUE 

+ + 

! rStat ! Returned driver status 



! rRslt 



! Result code from Omninet result record 



If only these fields need to be updated in the interrupt 
procedure/ the TCinterrupt procedure in this unit may be used as 
the user's interrupt procedure. 

An example of this function is: 

var pblk: TCparmBlk; 

Sbuff: array CI.. 5123 of -128. . 127; •£ send message buffer > 

Srslt: TCrsltRcd; < send result buffer > 

Dsta: integer; 

TCinitBlk (pblk, ©Srslt, ©Sbuff, ©TCinterrupt); 
Dsta := TCsndMesg ( pb 1 k, 1 , 512, 0, 63) ; 

< send to host 63, socket 1 > 
if Dsta O then .... -C Transporter driver error > 

while NOT pblk. rDone do; -C wait until mesg sent > 

if pblk. rRslt = then .... -C mesg sent successfully > 

else .... ■£ error processing > 

.... or ... . 

TCinitBlk (pblk, ©Srslt, ©Sbuff, NIL); 
Dsta := TCsndMesg ( p b 1 k , 1 , 512, O, 63 ) ; 

■C send to host 63, socket 1 > 

if Dsta <> then .... -C Transporter driver error > 

if pblk. rRslt = then .... < mesg sent successfully > 

else .... -C error processing > 
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TCendRecv Function 



TCendRecv disables reception of any more messages for the 
specified socket until another TCsetRecv command is issued for 
the socket. The definition of this function is: 

FUNCTION TCendRecv (ScktNbr: integer; 

var CmdRslt: integer): integer; 

! Parameter ! Data Type i Description i 

•fSEESasSSKSSfSBKBKSnaSBSBX+SSKEBSBSBSESSBSBCSSESSSSSSSSSaKS-f 

! ScktNbr ! integer ! Receive socket number in the ! 
! ! I range of 1 to 4 I 

! ! I (1..4 - sockets *80. . *B0) i 

+ + + + 

! CmdRslt ! integer ! Omninet command result ! 

+ ). + + 

The function result is the Transporter driver request status. 
After executing the function/ CmdRslt contains the Omninet 
command result. Valid command results are: 

I Identifier ! Value ! Description I 

! OkCode ! ! Successful operation ! 

+ + + + 

i BadSock ! 132 ! Invalid socket number specified i 

+ h H + 

An example of this function is: 

var Dsta>Osta: integer; 

Dsta := TCendRecv (1/ status); -C end receiving on socket 1 > 
if Dsta O O then .... < Transporter driver error > 

if Osta <> then .... < Omninet command error > 
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TCuihoAmI Function 



TCwhoAml returns the Transporter number of the host computer. 
The definition of this function is: 

FUNCTION TCwhoAmI (var HostNmbr: integer): integer) 

! Parameter ! Data Type ! Description ! 

I HostNmbr ! integer ! Host Transporter number ! 

+ 1- + + 

The function result is the Transporter driver request status. 
After executing the function# HostNmbr contains the Transporter 
number of the host computer. 

An example of this function is: 

var Dsta/ TransNbr : integer) 

Dsta := TCwhoAml (TransNbr); 

if Dsta O then .... -C Transporter driver error > 

uiriteln ('Our Transporter number is '/ TransNbr : 1 ) ; 
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TCechoTrans Function 



TCechoTrans requests the Transporter to send an echo packet to 
the specified host. The echo packet is used to verify the 
presence of another network device without disturbing that 
device. The definition of this function is: 

FUNCTION TCechoTrans <DestHost: integer; 

var CmdRslt. integer), integer; 

4-BrsBBBBSEaBfBasaBXSsssasss+&K==Bssx3SBsaaai3Bas«BS8a3BaBBaBs^. 

! Parameter ! Data Type ! Description ! 

! DestHost ! integer ! Destination host number ! 

+ + + (. 

! CmdRslt ! integer ! Omninet command result ! 

+ + + + 

The function result is the Transporter driver request status. 
The function sends an echo packet to Transporter DestHost. 
Transporter DestHost receives the packet and acknowledges without 
informing the attached host computer. After executing the 
function, CmdRslt contains the Omninet command result. Valid 
command results are: 

i Identifier ! Value ! Description ! 

! GaveUp ! 128 ! Aborted a send command after ! 

! i ! maximum retries ! 

+ + + + 

! BadDest i 134 i Sent to an invalid host number i 

+ + + + 

! Echoed ! 192 ! Echo command was successful ! 

+ + + + 

An example of this function is. 

var Dsta.Osta: integer; 

Dsta := TCechoTrans (l,0sta); -C is Transporter 1 active? > 

if Dsta O then .... < Transporter driver error > 

if Osta = Echoed then .... -C Transporter responded > 

else .... < Transporter did not respond > 
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TCpeekTrans Function 



TCpeekTrans is used to examine internal memory of the 
Transporter. See the "Omninet Programmer's Guide" for more 
information on the Transporter peek command. The definition of 
this function is: 

FUNCTION TCpeekTrans (Addr: integer; 

var Value: integer): integer; 

I Parameter ! Data Type ! Description ! 

I Addr ! integer ! Transporter memory address ! 

+ + + + 

! Value ! integer ! Data byte value moved from ! 

! ! ! Transporter memory ! 

+ + + + 

The function result is the Transporter driver request status. 
The function returns the unsigned byte value of data from 
location Addr in the internal memory of the Transporter. 

An example of this function is: 

var Dsta/Tvalue: integer; 

Dsta := TCpeekTrans (*Eli Tvalue ) ; -C get nmbr of retries > 
if Dsta <> then .... -C Transporter driver error > 
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TCpokeTrans Function 



TCpokeTrans is used to alter internal memory of the Transporter. 
See the "Omninet Programmer's Guide" for more information on the 
Transporter poke command. The definition of this function is: 

FUNCTION TCpokeTrans (Addr, Value: integer; 

var CmdRslt: integer): integer; 

! Parameter i Data Type ! Description ! 

' Addr ! integer ! Transporter memory address ! 

+ + + + 

! Value i integer ! Data byte value to move to i 
I I i Transporter memory ! 

+ + + + 

! CmdRslt i integer ! Omninet command result i 

+ + + + 

The function result is the Transporter driver request status. 
The function moves the unsigned byte value of data to location 
Addr in the internal memory of the Transporter. 

An example of this function is: 

var Dsta<Osta: integer; 

Dsta : = TCpokeTrans <$E1. 10. Osta > < •{ set nmbr of retries > 
if Dsta <> then .... -C Transporter driver error > 

if Osta O then .... < Omninet command error > 
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TCsetRetry Function 



TCsetRetry is used to set the number of Transporter retries. The 
definition of this function is: 

FUNCTION TCsetRetry (Retries: integer): integer; 

! Parameter ! Data Type ! Description : 

! Retries ! integer ! Number of Transporter retries ! 

+ + + + 

The function result is the Transporter driver request status. 
The function sets the specified number of retries into the 
internal memory of the Transporter. 

An example of this function is: 

var Dsta: integer; 

Dsta := TCsetRetry (3); -C set number of retries to 3 > 
if Dsta O then .... -C Transporter driver error > 
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TCnetMap Function 



TCnetMap is used to define a set of active network hosts. The 
definition of this function is: 

FUNCTION TCnetMap (var NetMap: TChostSet); integer; 

! Parameter I Data Type ! Description ! 

! NetMap I TChostSet I Set of active host numbers ! 

+ + + + 

The function result is the Transporter driver request status. 

An example of this function is: 

var Dstai tn: integer; map: TChostSet; 

Dsta := TCnetMap <map); 

if Dsta <> O then .... < Transporter driver error > 

for tn : = to 63 do begin 

if tn in map then 

turiteln <' Transporter ',tn: 1* ' is active'); 

end; 
write In; 
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Omninet Transporter Unit Example Program 



The following simple program illustrates using the Omninet 
Transporter driver unit. 



program ot; 

uses <»u /ccutil/cclib> ccDEFN, ccCRTioi ccOTCio; 

procedure RunTest; 

var i.r/tn: integer; 
map: TChostSet; 
tcp: TCparmBlk; 
rslt: TCrsltRcd; 

buff: array CI.. 5123 of -12B. . 127; 
beg in 
uiriteln; uiriteln ('TChaveDrv = '• TChaveDrv) ; 

uiriteln < 'TCtrnVrsn = '. TCtrnVrsn: 1 > ; uiriteln; 

uiriteln ( 'TCuihoAmI test'); 

r : = TCuihoAmI < i ) ; 

write In < ' result = '< r : 1, ' transporter number = '» i: 1 ); 

wr i te In; 

uiriteln < 'TCechoTrans test'); 
for tn : -■ to 63 do begin 
r : = TCechoTrans (tnii); 
if <r O 0) or (i = echoed) then 
uiriteln (' result = ',r:l< 

' transporter number = 'itn:l); 
end; 
uiriteln; 

uiriteln ( 'TCnetMap test (TCpokeTrans & TCsetRetry ) ' ) ; 

r := TCnetMap (map); 

uiriteln < ' result ='»r:l)» 

for tn := to 63 do begin 

if tn in map then 

uiriteln (' transporter number = '<tn:l); 

end; 
uir i te In; 

uiriteln ('TCsetRetry test (TCpeekTrans %>. TCpokeTrans)'); 

r : = TCsetRetry ( 1 ); 

uiriteln (' result = 'ir:l); 

r := TCpeekTrans (*El/i); 

uiriteln (' result = '»r:l.' retries = ',i:l>; 

r : = TCsetRetry (10); 

uiriteln (' result = ',r:l); 

r .= TCpeekTrans (*El;i); 
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write In < ' 
writeln; 



result 



'. r: 1, 



retries 



' . i : 1 ) ; 



writeln ( 'TCgetCounts test (TCpeekTrans & TCpokeTrans ) ' ); 
TCgetCountsi 

(' TCCmiss = ', TCcountsCTCCmiss3: 1 ); 

(' TCCcoll = ', TCcountsCTCCcoUD: 1); 

(' TCCintErr - ', TCcountsCTCCintErr 3: 1 ); 

(' TCCrcvErr = ', TCcountsCTCCrcvErr 1: 1 ) ; 

< ' TCadlc = ', TCadlc: 1); 



uriteln 
write In 
uriteln 
write In 
write In 
wr iteln 



writeln ( 'TCsetRecv test')i 
for i :■ O to 5 do begin 
TCinitBlk (tcp, @rslt. 
r := TCsetRecv (tcpi i 
writeln < ' result = 
socket = 



for 



Sbuff, NIL); 

512, 0); 
', r: 1. 

', i: 1, 



' transporter result = ' 
end; 

i := 4 downto 1 do begin 
TCinitBlk (tcp, Srslt, Sbuff, NIL); 
r :■ TCsetRecv (tcp, i, 512, 0); 



tcp. rRslt: 1 ); 



writeln ( 



result = ', r : 1, 
socket = ',i:l, 
transporter result 



end; 
writeln; 



tcp. rRslt: 1 ); 



writeln ( 'TCendRecv test'); 
for i := to 5 do begin 

r := TCendRecv (i, tn); 
writeln (' result = ',r:l, 
socket = ', i: 1, 
' transporter result 
end; 

i := 4 downto 1 do begin 
r := TCendRecv (i, tn); 



for 



= ', tn: 1); 



writeln ( 



end; 
writeln; 



result = ', r: 1, 
socket = ', i : 1, 
transporter result 



', tn: 1 ); 



end; 



beg in 

ccCRTioInit; 
CrtAction (EraseALL); 
writeln ('ccOTCio unit 



test ' ) ; writeln; 
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ccOTCioIniti 
RunTesti 
ccOTCioTerm; 
end. 



The output generated by this program is: 
ccOTCio unit test 



TChaveDrv = TRUE 
TCtrnVrsn = 100 

TCwhoAmI test 

result = O transporter number = 11 

TCechoTrans test 

result = O transporter number = 

TCnetMap test (TCpokeTrans & TCsetRetry) 
result = 
transporter number = O 

TCsetRetry test (TCpeekTrans & TCpokeTrans) 
result = O 

result = retries = 1 
result = 
result = retries = 10 

TCgetCounts test (TCpeekTrans & TCpokeTrans) 
TCCmiss = 
TCCcoll = 
TCCintErr = O 
TCCrcvErr = O 
TCadlc = O 

TCsetRecv test 

result = socket = transporter result = 255 

result = socket = 1 transporter result = 254 

result = O socket = 2 transporter result = 254 

result = socket = 3 transporter result = 254 

result = socket = 4 transporter result = 254 

result = socket = 5 transporter result - 255 

result = O socket = 4 transporter result = 133 

result = O socket = 3 transporter result = 133 

result = socket = 2 transporter result = 133 

result = socket = 1 transporter result = 133 

TCendRecv test 
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result 
result 
result 
result 
result 
result 
result 
result 
result 
result 



O 

O 
O 
O 




O 



soc 
soc 
soc 
soc 
soc 
soc 
soc 
soc 
soc 
soc 



ket 
ket 
ket 
ket 
ket 
ket 
ket 
ket 
ket 
ket 





1 
2 
3 
4 
5 
4 
3 
2 
1 



transp 
transp 
transp 
transp 
transp 
transp 
transp 
transp 
transp 
transp 



orter 
orter 
orter 
orter 
orter 
orter 
orter 
orter 
orter 
orter 



result 
result 
result 
result 
result 
result 
result 
result 
result 
result 



132 

O 







132 
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Omninet Transporter Driver Background Information 



The following sections give a brief description of the Omninet 
Transporter driver. Topics discussed in the background 
information sections do not have to be understood in order to use 
the Transporter commands unit. 

The Transporter driver has three main functions: 

1. "strobe in" Transporter commands/ 

2. handle Transporter generated interrupts, 

3. ensure only one command and one receive on each socket is 
attempted at the same time. 

Access to the driver is through the UnitStatus mechanism of the 
Corvus Concept Operating System. The Pascal defined UnitStatus 
call is: 

UnitStatus (UnitNmbr, ParmBlock, FuncCode); 

where UnitNmbr is the unit number of the Omninet Transporter 
driver, ParmBlock is the Omninet Transporter driver parameter 
block/ and FuncCode is one of the valid function codes for the 
dr i ver . 
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ParmBlock has the form: 

record CommandPointer : pBytes; 

ProcedurePointer : pBytes; 

UserData: LongWordi 
endi 

where CommandPointer is a pointer to the Transporter Control 
Block to be "strobed" into the Transporter. ProcedurePointer is 
a pointer to the global level procedure the Transporter driver 
calls when the Transporter interrupt occurs. UserData is a four 
byte (long word) data field which is user-defined. 

The CommandPointer must point to a valid Transporter Control 
Block above the address $80000> except for the "Clear Receive 
Socket" function in which case the pointer can be NIL. 

The ProcedurePointer must point to a valid user interrupt service 
routine or may be NIL. A NIL ProcedurePointer indicates NO user 
interrupt service routine to call when the operation is dequeued 
or complete. The interrupt service routine must accept five 
parameters: a dequeue flag, a status codei the result and buffer 
pointers from the Transporter Control Block/ and the UserData 
parameter from the ParmBlock (see description in interrupt 
routine discussion). 

The dequeue flag is non-zero when the interrupt service routine 
is called for an operation start attempt. The dequeue operation 
start call to the interrupt service routine is made only if the 
Transporter Control Block was queued by the driver. The status 
code describes the IORESULT code for the operation start attempt. 
If the status code is non-zeroi the control block specified 
failed to be "strobed in." 

The dequeue flag is zero when the interrupt routine is called 
after a complete operation. 

The user interrupt procedure interface is: 

Procedure Done (DequeFlag: integeri {dequeue flag > 

DrvStatus: integer; {driver status > 

ResultPtr: pBytes; {user may use any pointer. . > 

BufferPtr: pBytes; {. . type for these pointers > 

UserData: longint)i {can be any long word type > 

Failure to comply with these rules results in catastrophic 
consequences. 



September 1, 1983 Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library 
Omninet Transporter Interface Unit 



c c OTC i o 
Page 10-29 



The UserData parameter is available for any purpose the user 
determines. It is not examined or used for any purpose by the 
Transporter driver. It is returned to the user's interrupt 
service routine. For example, it may be a pointer to an 
operation control block, a transaction code, or an index into an 
array. 

The ccOTCio unit uses this field to point to a request parameter 
block which contains all information needed to process an Omninet 
Transporter command. 

The Omninet Transporter driver functions are: 



Current Command. 



1 
2 
3 
4 



Setup Receive Socket. The function code specifies! 
which socket, where 1 is socket *80< 2 is socket ! 
*90 and so on. ! 



129 
130 
131 
132 



Clear Receive Socket. The function code specifies! 
which socket, where 129 is socket $80. 130 is ! 
socket *90 and so on. ! 



Each of the functions use the same parameter block. If any other 
function codes are used, the driver returns a status code 
indicating the source of the error (see section on error and 
warn ing codes). 
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Driver Functions 



The driver functions use an internal table to control the 
operations. This table has five entries, one for the Current 
Command and four for each of the receive sockets. 

The Current Command entry is used for send/ peek. poke. init. 
echo, and other immediate Transporter commands sent to the driver 
via the Current Command function interface. 

The "Clear Receive Socket" function uses the Current Command 
entry if the command address is not NIL. This is used to send an 
"End Receive" command to the Transporter. 

The "Setup Receive Socket" function also uses the Current Command 
entry to transmit the "Setup Receive" command to the Transporter. 
It uses the receive socket entry if the command is successfully 
strobed into the Transporter. 

Each entry in the table can be in use for only one command at a 
time. The four receives sockets may each have only one receive 
pending at a time. If a "Setup Receive Socket" function is 
requested on a socket with a receive pending, an "In Use" status 
code is returned to the caller and the driver takes no action. 

The current command entry may have only one command pending on 
it. However, if a current command request is made while one is 
currently pending, the driver queues the new request if there is 
room in the queue. The driver returns a warning code if it 
queues a request (see error and warning code section). The 
"Setup Receive Socket" function does not setup the socket entry 
if the current command is queued. When the request is dequeued, 
the receive will be setup, if possible. The user's interrupt 
procedure is called with a non-zero dequeue flag. If the driver 
cannot setup the receive, the status parameter is non-zero 
defining the I/O error. Otherwise, the status parameter is zero, 
indicating no error on dequeue. 
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The "Setup Receive Socket" function does special processing on 
the result code of the current command if it is successfully 
transmitted to the Transporter. The function waits for a change 
of the result code instead of depending on the driver's interrupt 
service routine to release the current command entry. If the 
result code does not change within a certain time, the driver 
returns the "Transporter Not Ready" status code. It also clears 
both the current command and receive socket entries. However, if 
the Transporter changes the result code to an error state, the 
function does NOT release the socket entry. It assumes the 
receive is setup. Therefore, the caller must do a "Clear Receive 
Socket" function with the command address NIL to free up the 
receive socket entry. 

For the peek command, the Transporter returns the data as the 
result code. Since the driver determines which command and. 
therefore, which entry caused the interrupt by the result code, a 
peek response of *FF causes the driver to miss the interrupt for 
the peek completion. Consequently, the driver would not release 
the current command entry. To prevent this, the driver waits on 
the completion of the peek command. If the result code does not 
change within a certain time, the driver assumes the peek command 
returned an *FF and releases the current command entry. 
Unfortunately, this means a user should not wait on an "In Use" 
error response from the driver in an interrupt routine if it is 
possible that a peek command is pending in the current command 
entry. For this last case, if the peek response is *FF, the 
current command entry will not be released. 
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Interrupt Service Routine 



If the user specifies an interrupt service routine* this routine 
must be resident in memory the entire time the Transporter 
command is active. Furthermore, if the code is Pascal, the 
routine must be a global level procedure. A global level 
procedure is nested only under the MAIN level program. 

The interrupt service routine must support two types of 
processing. The first occurs when the dequeue flag is zero 
indicating the operation is complete. The interrupt service 
routine should do normal operation complete processing, which may 
entail calling the Transporter driver again to initiate another 
command. The second occurs when the dequeue flag is non-zero 
indicating a previously queued command has been dequeued and 
processed by the driver to start the Transporter operation. The 
interrupt service routine must check the status code parameter 
which describes any error condition found when initiating the 
command as it was removed from the queue. If the status code is 
zero, the set up was successful, otherwise, the set up failed. 
The status code is usually a "Transporter Not Ready" error. This 
indicates a good probability of a hardware malfunction with the 
Transporter. However, it can be the "In Use" error if the 
operation requested is a "Setup Receive Socket" function. If the 
setup succeeded, the interrupt service routine is called again 
when the operation is complete. If it failed, the interrupt 
service routine is NOT be called for an operation completion. 

Normally, the interrupt service routine is called after the 
command has been performed and the entry has been released. 
Prior to the interrupt service routine call, the driver restores 
the interrupt level to the state when the Transporter interrupt 
occurred. Upon return, the driver resets the interrupt level to 
disable Transporter interrupts. For the dequeue call, the 
command is not performed, the current command entry is not 
released, and the entry is not removed from the queue, therefore, 
the user's normal processing may cause problems. After the 
interrupt service routine returns from the dequeue call, the 
current command entry is released and the entry is removed from 
the queue. 
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The user's interrupt service routine must be very careful about 
reentrancy problems, such as changing global variables from 
within the interrupt service routine or calling non-reentrant 
system functions. This interrupt service routine may call other 
procedures and functions within the user's program. It should 
not call the display or keyboard drivers because of timing and 
reentrancy problems. The driver's interrupt routine saves and 
restores IORESULTi a potential source of reentrancy problems in 
the system. This protects the user's interrupt routines which 
call the driver from damaging I/O error reporting from the system 
after the interrupt call is completed. 

The interrupt service routine is never called for a "Setup 
Receive Socket" function. This function forces the current 
command entry's procedure pointer to NIL when it calls the 
Current Command function. 
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Error and Warning Codes 



The following is a summary of the error and warning codes 
returned by the driver to the calling routine. 



Invalid I/O request error 



The driver returns this code if the command code i< 
invalid. The command codes defined by the Concept 



OS are in the range of to 6, inclusive. 

driver supports only: 

Unitlnstall (command code = 
UnitStatus (command code = 
UnitUnmount (command code = 



The 



0), 
5), 
6). 



All other commands are invalid. 



21 



Transporter not ready error 



The driver returns this code if the Transporter fails 
to respond ready in time when trying to "strobe in" 
the command. The driver also responds with this code 
when it times out waiting for the "Setup Receive" 
response from the Transporter. 



30 



Queued request warning 



The driver returns this code whenever it queues a 
request. This can occur for "Current Command" and 
"Setup Receive Socket" function calls. 



52 



Entry in use error 



The driver returns this code whenever the specifie 
entry or implied entry has a command pending on it 
The "Clear Receive Socket" function returns this 
error if the current command entry is in use. The 
"Setup Receive Socket" function returns this error 
if the specified receive socket entry is in use or 
the current command entry is in use and the queue 
full. The "Current Command" function returns this 
error only if the current command entry is in use 
and the queue is full. 



is 



56 



Invalid function code error 



The driver returns this code if the user passes a 
function code to the UnitStatus command that is no1 
O, 1. 2, 3, 4, 129, 130, 131 or 132. 
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The Window Control Unit 
ccWNDio 

The Window Control Unit is used to interface with the display 
driver window functions. 

The ccWNDio unit USES unit ccDEFN. 

The unit is included in user software by declaring: 

USLS -C*U /CCUTIL/CCLIB> ccDEFN, ccWNDio; 



ccWNDio Unit Constants 

Constants defined in ccWNDio are: 



WinCreate Function Flag Values 






Identifier 
Wf-yGraf 



Value 



Descr i p t i on 
Grap hies mod e 



Wf gCur tOn 



Cursor on 



! Wf g InvCur 



Inver se cursor 



.' WfgWrap 



16 



Line wrap 



! WfyScrDff 



Scroll off 



! WfgClrPg 

+ 



64 ! C 1 ear page 

+ + 
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WinSystem Function System Windou Select Codes 



! Identifier ! Value i Description 

i WsysCurr ! 1 ! Current process window 






! WsysCmd 

+ 

I WsysRoot 

+ 



2 S Cmd/msg window 

+ 

3 ! Root user window (full screen) 

h 



ccWNDio Unit Types 



Data types defined in ccWNDio are: 



! Dat 

! pCh 

+ 

! CharSet 

+ T- 






a I ype 
arSet 



! Description 

' Character set record pointer 






tb] loc: 
1 p r . h : 
b p r h : 
frstrh: 

1 a s t c h ■ 
mas k : 
attrl: 



attr2: byte 



! Character set record 

+ 

p B ij t e s i < 

< 

■i 

•C 

•c 
•c 

•c 
< 



integer; 
i n teger ; 
integer; 
? n teg er i 

longinti 
b 'j t e ; 



character set data pointer 

scanlines per character 

bits per character 

first character code - ascii 

last character code - ascii 

mask used in positioning cell 

attributes 

bit 0=1- vertical orientat 

currently unused (always = 



ion 
) 
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+=== 


======= 


===+======== 


= = = 5 


1= = = === = = = ==== = = = ==== = :=== = =======: 


=== 


! Data Typ 
! pWndRcd 


p ! Description 




! Window 


record pointer 




! Wnd Red 


! Window 


record 






charp 


t: pCharSet; 


< 


character set record pointer 


y 




h omep 


t : pBy tes; 


<. 


home (upper left) pointer 


y 




curat! 


r : pBy tes; 


< 


current location pointer 


y 




h omeo 


f : integer; 


-C 


bit offset of home location 


y 




b a r, e x 


in teg er ; 


•C 


home x value, rel to root window 


y 




b a 5- f y 


integer; 


■c 


home y value, rel to root window 


y 




1 n g t h 


x : integer; 


-t 


maximum x value, bits rel to wnd 


y 




lng th 


J : integer; 


< 


maximum y value, bits rel to wnd 


y 




c u r s x 


integer; 


< 


current x value, bits rel to wnd 


y 




c u t- sy 


integer; 


•c 


current y value, bits rel to wnd 


y 




b a t o f 


5: integer; 


■c 


bit offset of current address 


y 




gr or p 


x: integer; 


•c 


graphics origin x, bits home rel 


y 




grorq 


<i : integer; 


•c 


graphics origin y, bits home rel 


y 




attri 


byte; 


< 


inverse, underscore, insert 


y 




a!:tT2 


byte; 


< 


v/h, graph/char, cursor on/off, 


y 








< 


cursor inv/under 1 ine 


y 




s t ;: t (- 


byte; 


<. 


for decoding escape sequences 


y 




t c (J 1 e 


i : byte; 


< 


window description record length 


y 




att r3 


byte; 


c 


enhanced character set attributes}- 




filll 


byte, 


1 


currently unused 


y 




fi])2 


byte; 


■c 


currently unused 


■v. 

J 




f:i. 1 13 


byte; 


■c 


currently unused 


> 




f i] 14 


1 o n g i ii t ; 


•c 


currently unused 


J 


-i 


UIUJ5P t' 


' : pB y te s; 


■c 


window working storage pointer 


J 



<: : Wi'JDi o Unit Variables 

Variable? defined in ccWNDio are: 

M(.:!!-. 
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ccWNDio Unit kinctions and Procedures 

Procedures defined in ccWNDio are: 

! Procedure ,' Description ! 

! ccWNDio In it (Unit initialization 

+ + + 

Functions defined in ccWNDio are: 



I F- uncti on 






! WinSystem 



I WinCrcatf 



: WinBeltct 



! W i n D e 1 c t e- 



I Wind car 



! WinStatus 



W i n L o a d C h 



Descr iption 



Select a system defined window 



Create a user defined window 



Select a user defined window 



Delete a user defined window 



Clear a user defined window 



Get status of current window 



Load character set for window 



r:WNI).i(iInit Procedure? 



ccWNDjoInit initializes the ccWNDio unit. This procedure must be 
cj] led before any other functions or procedures in this unit are 
failed. Thf definition of this procedure is: 

PROCEDURE: ccWNDio In it; 

An example of this procedure is: 

ci WNI)j oliiiti 



Si? nt ember 1, 19B3 



Copyright 1983 Corvus Systems, Inc. 



Corvus Concept Pascal System Library ccWNDio 

Window Control Unit Page 11-5 



WinSy.item Function 



WinSyttem selects a system defined window. The definition of 
this function is: 

FUNCTION WinSystem (WN: integer): integer; 

! Parameter I Data Type ! Description ! 

! WN ! integer I System window selection code ! 

4 + + h 

The function returns the IORESULT from the display driver select 
window function. A value of O indicates a successful operation. 
WN is one of the following: 

.' Identifier ,' Value I Description ! 

! WsgsCurr ! 1 ! Current process window ! 

+ 4- + + 

! WsysCmd ! 2 I Cmd/msg window ! 

H 1- 1 (. 

! W s y s R o c> t I 3 ! Root user window (full screen) ! 

+ + + + 

I ! 4. r.'O ! Dynamic system windows created ! 

I I ! using the CreWndoui key ! 

H H h ! h 

A;, example of this function is: 

vijr Wstedtii'»: integfiri 

W'-'atus := WinSystem (WsysCmd >; 

write In (''I his appears in the command window'); 

Wr-iatus := WinSystem ( Wsy sCurr ) ; 

writeln ('"Ihis appears in the user window'); 

u;i.atii5 li, the status of the display driver select window 

function I h i v. example selects the command window and outputs 

text The user window (current window when the program was 

leaded i it then selected. 
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WinCreate Function 



WinCreate creates a user defined window. The definition of this 

function is: 

FUNCTION WinCreate <var WR : WndRcd; HomeX, HomeY, 

Width* Lngthi Flags: integer): integer; 

! Parameter ! Data Type ! Description ! 

! WR ! WndRcd ! Window record of window to ! 
I ! ! create ! 

+ + + + 

! HomeX ! integer ! New window home coordinates ! 
+ + + relative to current window ! 

! HomeY ! i n t e g e r ! ! 

+ + + + 

! Width ! integer ! New window width (X size) ! 

+ y + + 

! Lngth ! integer I New window length (Y size) ! 

+ ■+ h + 

! F-lagb ! integer 1 Flag codes from table below ! 

+ + + + 

Th'i function returns the IORESULT from the display driver create 
window function. A value of O indicates a successful operation. 

For text windows HomeX- HomeY, Width, and Lngth contain character 
position values-. For graphics windows (WfgGraf in Flags) these 
variables contain pixel position values. HomeX and HomeY contain 
the home (upper left) position of the new window relative to the 
current window, either characters or pixels. 

Width contains the number of positions in the X direction of the 

new window, either characters or pixels. Lngth contains the 

number of positions in the Y direction of the new window, either 
characters or pixels. 
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Flags contains the sum of window attributes from: 



! Identifier j Value ! Description 
! WfyGraf ! 2 ! Graphics mode 



1 
t 


Wf gCurtOn 


i 
i 


4 


i 
i 


Cursor on 


1 

1 


Wf g InvCur 




8 


i 


Inverse cursor 


1 


Wf g Wrap 




16 


i 


Line wrap 


1 

1 


Wf gScrdf f 


i 


3£ 


i 
i 


Scroll off 


1 


WfgClvPg 


i 


64 


i 
i 


Clear page 



An example of this function is: 

var Wstatus: integer; 

h o m c x , homey, width, 1 n g t h , curx, cury: integer; 
Base.'X, LfaseY, LngthX, LngthY, Wf lags: integer; 
l/serWindoui. WndRcd; 



Wrtatus 
IJ.-if.eX 
LngthX 
W f 1 a g s 
W •.. t a t u p 



= WinStatus < h ome x , h omey , wi d t h , lng th , c ur x , c ur y ) ; 

0, Bar.eY : = O; 
' width; LngthY : = 3; 
■■ WfgC'ursOn + WfglnvCur; 
= Win Create (UserWindow, 

BaseX, Base Y, LngthX, LngthY, Wf lags); 



Wstatus is the status of the display driver create window 
function UserWindow is the user window record for the new 
window This example creates a three line text window at the 
of the current window. 



top 
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WinSelect Function 



WinSelect selects a user defined window to be the current window 
After the window is selected, all display driver activity affects 
only the newly selected window. The definition of this function 
i s: 

FUNCTION WinSelect <var WR : WndRcd): integer; 

! Parameter ! Data Type ! Description ! 

! WR ! WndRcd ! Window record of window to ! 
! ! ! tfll f c t I 

+ + h + 

The function returns the IORESULT from the display driver select 
window function. A value of indicates a successful operation. 
WR, the window record/ must be created with the WinCreate 
function before selecting the user window. 

---IMPORTANT--- 

Window records can not be local to a procedure. Place window 
records with the global program variables. When specifying 
window records in parameter strings, always specify them as a VAR 
parameter. Alto, select the current system window before exiting 
a prociram by specifying: 

Wrtatus := WinSystem (WsysCurr); 



An --v.idiple of this function is: 

viiv Wstatus: integer; 
UsevWindow: WndRcd; 

Ws-tatus :- WinSelect < UserWind ow ) ; 

Wstatus is the status of the display driver select window 
function. UserWindow is the user window record for the window to 
be selected. 
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WinDels te Function 



WinDelete deletes a user defined window. The definition of this 

f u n c t i o n is: 

FUNCTION WinDelete (var WR : WndRcd): integer; 

I Parameter ! Data Type i Description ! 

! WR I WndRcd ! Window record of window to ! 

I ! delete ! 

+ h 4 + 

lh? function returns the IORESULT from the display driver delete 
window function. A value of indicates a successful operation. 
WP- the window record/ must be created with the WinCreate 
fi.'-". ction before deleting the user window. 

An example of this function is: 

var Wstatus.: integer; 
UsevWindow: WndRcd; 

W-.tatus := WinDelete ( UserWi nd ow ) ; 

Wstatus is the status of the display driver delete window 
function. UserWindow is the user window record for the window to 

be deleted. 
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WinClear Function 



WinClear clears the uindom defined by the specified window 
record. The definition of this function is: 

FUNCTION WinClear <var WR : WndRcd): integer; 

! Parameter i Data Type ! Description ! 

! WR ! WndRcd ! Window record of window to ! 

! ! ! clear 

+ + + + 

The function rpturns the IORESULT from the display driver clear 
window function. A value of indicates a successful operation. 
WRi the window record, must be created with the WinCreate 
function before clearing the user window. 

An example of this function is: 

vav Wstatus: integer; 
UserWindow: WndRcd; 

Wr, tat us := WinClear (UserWindow); 

Wstatus is the status of the display driver clear window 
function UserWindow is the user window record for the window to 
be cliarr-'d 
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WinStatus Function 



WinStatus sets six integer variables which define the status of 
the current window. The definition of this function is: 

FUNCTION WinStatus (var HomeX, HomeY, Wi dth, Lng th, 

CurX,CurY: integer): integer; 



! Parameter 






HomeX 



HomeY 



Width 



Lng th 



Cui-X 



CurY 



Data Type 



integer 
integpr 



Current window absolute 
+ home coordinates 

(relative to entire screen) 



integer 



integer 



integer 
integer 



Descr ip ti on 



Current window width (X size) .' 



Current window length <Y size) : 



Current cursor position 
+ relative to current window 



The function returns the IDRESULT from the display driver window 
status function. A value of indicates a successful operation. 

For tfc-xt windows all variables contain character positions 
valuer, For graphics windows (see WinCreate) all variables 
contain pixel positions. HomeX and HomeY contain the absolute 
home (upper left corner of full screen) position of the current 
window, either characters or pixels. 

Width contains the number of positions in the X direction of the 

current window, either characters or pixels. Lngth contains the 

number of positions in the Y direction of the current window/ 
either characters or pixels. 

CurX and CurY contain the current cursor position in the current 
window, either characters or pixels. 

An example of this function is: 

Vcir Wstatus: integer; 

AbsHomeX, AbsHomeY. LngthX, LngthY; CursorX, CursorY: integer; 

Wstatus := WinStatus ( Ab sHomeX, Ab sHomeY, 

Lngth Xi LngthY/ CursorX/ CursorY); 

Wstatus is the status of the display driver window status 

funct j cm 
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WinLoadCh Function 



WinLoadCh loads the specified character set for the current 
window. The definition of this function is: 

FUNCTION WinLoadCh (CSname: stringSO): integer; 

! Parameter ! Data Type ! Description ! 

! CSname ! stringBO ! File name of character set ! 

+ + + + 

The Window Manager program is used to load the specified 
character set. The function returns the result from calling the 
Window Manager program. A value of O indicates a successful 
character set load 

An example of this function is: 

var Wstatus: integer; 

Wstatus := WinLoadCh < ' /CCUTIL/CSD. 07. 1 1 ALT ' ) ; 

Wstatus is the status of the character set load returned by the 
Wind oil) Manager prog rani. 
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The Graphics Control Unit 
TurtleGraph ics 

The TurtleGraph ics Unit is used to interface with the display 
driver graphics functions. The Corvus Concept implementation is 
a subset of other implementations of TurtleGraph ics. 

The TurtleGraph ics unit USES no other units. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> TurtleGraph ics; 

TurtleGraph ics Unit Constants 

Constants defined in Turt leGraph ics are: 



I Identifier I Description ! 

! Tur t leVers i on ! Current version number string ! 

+ + ■ + 



TurtleGraph ics Unit Types 

Data types defined in Tur t 1 eGraph ics are: 

i Data Type ! Description ! 

! ScreenColor! Pen colors and screen colors ! 

+ h h h + 

! None ! ! No color > 

+ + h + 



(continued on next page) 



Copyright 1983 Corvus Systems. Inc. September 1, 1983 



TurtleGraphics 
Page 12-2 



Corvus Concept Pascal System Library 
Graphics Control Unit 



! Data Type i Description I 

I ScreenColor! Pen colors and screen colors (continued) ! 

+ — + + + + 

! White ! 1 i White I 

+ + + + 

! Black : 2 ! Black ! 

+ H + + 

! Reverse ! 3 ! White — > Black ! 

I ! ! Black — > White I 

! ! I Green — > Violet ! 

! ! ! Violet — > Green ! 

! ! ! Orange — > Blue ! 

! I i Blue — > Orange ! 

+ + + + 

! Radar ! 4 ! Not used ! 

+ + + + 

! Blackl ! 5 ! Black I 

+ + H + 

! Green ! 6 ! Move — Reverse pixel ! 

! ! ! Fill - Density = 2 ! 

+ + + + 

! Violet ! 7 ! Move - Reverse pixel ! 

! ! ! Fill - Density = 2 ! 

+ + + + 

i Whitel ! 8 ! White ! 

+ + + + 

i Black2 ,' 9 ! Black ! 

+ + + + 

! Orange ! 10 ! Move - Reverse pixel ! 

! ! ! Fill - Density = 3 i 

+ + + . + 

! Blue ! 11 ! Move - Reverse pixel ! 

! ! ! Fill - Density = 3 ! 

+ + + + 

! White2 ! 12 I White ! 

+ + + + 

TurtleGraphics Unit Variables 

Variables defined in TurtleGraphics are: 
None. 
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TurtleGraphics Unit Functions and Procedures 
Procedures defined in TurtleGraphics are: 

i Procedure ! Description 

! InitTurtle ! Unit initialization 






BaesxaaarK + 



1 
1 


GrafMode 


i 
i 


Set 


graphics 


mode 


1 
1 


TextMode 


i 

i 


Set 


text mod 


e 


1 
1 


ViewPort 


i 


Set 


view por 


t 


1 
1 


PenColor 


i 


Set 


pen color 


1 


Fi 1 IScreen 


i 

r 


Fill 


view port with color 


1 
1 


Turn 


t 
i 


Turn 


turtle 


(relative to current) 


t 

1 


TurnTo 


i 


Turn 


turtle 


(absolute) 


1 
t 


Move 


i 

i 


Move 


turtle 


(relative to current) 


1 
1 


MoveTo 


i 
i 


Move 


turtle 


(absolute ) 



Functions defined in TurtleGraphics are: 

I Function ! Description ! 

+3=3==3ssss=as4>ssss3Easesss3BBssssaKaassBBaiBBKxaisaasasEExses+ 

I TurtleX ! Get current turtle X coordinate ! 



TurtleY 



TurtleAng 



Get current turtle Y coordinate 



Get current turtle angle 



! ScreenBit ! Test for displayed pixel 
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InitTurtle Procedure 



InitTurtle initializes the Turt leGraph ics unit. This procedure 
must be called before any other functions or procedures in this 
unit are called. The definition of this procedure is: 

PROCEDURE InitTurtle; 

The current window is cleared. The turtle placed in the center 
of the window with an angle of degrees (facing the right side 
of the screen). 

To obtain the current window size ( use the TurtleX and TurtleY 
functions and multiply each value by two. 

An example of this procedure is: 

var maxX,maxY: integer; 

InitTurtle; 

maxX : = TurtleX # 2; 

maxY : = TurtleY * 2; 
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GrafMode Procedure 



GrafMode sets the graphics mode. The definition of this 
procedure is: 

PROCEDURE GrafMode; 

The procedure does nothing in this implementation. It is 
included for compatibility with other implementations. 

An example of this procedure is: 

GrafMode; 



TextMode Procedure 



TextMode sets the text mode. The definition of this procedure 

i s : 

PROCEDURE TextMode; 

The procedure does nothing in this implementation. It is 
included for compatibility with other implementations. 

An example of this procedure is: 

Te x tMode; 
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ViewPort Procedure 

ViewPort sets the limits of the current plotting "window". As 
lines are drawn only line segments contained in the current view 
port are displayed. Line segments outside of the current view 
port are not displayed/ ie, "clipped" at the edge of the view 
port. The definition of this procedure is: 

PROCEDURE ViewPort (Left, Righ t, Bottom/ Top : integer); 

i Parameter i Data Type ! Description ! 

i Left ! integer ! View port left edge (X coord)! 

+ + h + 

! Right ! integer ! View port right edge (X coord)! 

+ + + + 

! Bottom ! integer ! View port bottom edge (Y coord)! 

+ + + + 

■ Top i integer ! View port top edge <Y coord)! 

+ + + + 

The procedure sets the limits for the current view port. View 
port limits are relative to the current window. Initially/ the 
view port limits describe the entire current window. 

View Port Relationship to Current Window 

+ + h + 



Left 



Right 



+ — Top 



+ — Bottom 




An example of this procedure is: 
ViewPort (100,200,200,300); 
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PenColor Procedure 



PenColor sets the current pen color. The definition of this 
procedure is: 

PROCEDURE PenColor (Color: ScreenColor); 

! Parameter I Data Type ! Description i 

I Color ! ScreenColor I Pen color (none, white, black) : 
+ + + + 

The procedure sets the pen color to the specified color. All 
lines are drawn (with Move or MoveTo ) with this color. Color 
None is specified to not draw lines when moving the turtle. 

An example of this procedure is: 

PenColor (white); 



FillScreen Procedure 



FillScreen fills the current view port with the specified color. 
The definition of this procedure is: 

PROCEDURE FillScreen (Color: ScreenColor); 

! Parameter ! Data Type ! Description | 

! Color ! ScreenColor ! Background color i 

+ + + + 

An example of this procedure is: 

ViewPort (100,200,200,300); 
FillScreen (white); 
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Turn Procedure 



Turn rotates the turtle the specified number of degrees. The 
definition of this procedure is: 

PROCEDURE Turn (Degrees: integer); 

i Parameter ! Data Type ! Description ! 

i Degrees ! integer ! Angle to turn • 

+ + + + 

The procedure rotates the turtle counter clockwise if the angle 
is positive or clockwise if the angle is negative. The angle of 
rotation has a range of from -359 degrees to 359 degrees. 
Rotation is relative to the current turtle angle. 

An example of this procedure is: 

Turn (-90); 



TurnTo Procedure 



TurnTo turns the turtle to the specified heading. The definition 
of this procedure is: 

PROCEDURE TurnTo (Degrees: integer); 

I Parameter ! Data Type ! Description ! 

I Degrees ! integer ! Absolute turtle heading i 

+ + + + 

The procedure turns the turtle to the specified angle. Turtle 
headings are: 

90! 

I 

1 

180 + O 

I 
I 

1270 
An example of this procedure is: 
TurnTo (90); 
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Move Procedure 



Move draws a line of the specified length from the current turtle 
position. The definition of this procedure is: 

PROCEDURE Move (Distance: integer)! 
I Parameter ! Data Type ! Description ! 

+BSBiBB3«asBeasB!SBBtBS+aS8:BtB!B!BtBSS!B!BtBSBiB«Bt+Ba«aeBtB«BiB5BiB«aBaiB!BsasasasB«=iaBBtB!=sssasn===!===BJ + 

I Distance I integer i Length of line ! 

+ + + + 

The procedure moves the turtle a specified distance from its 
current position, drawing a line of the current pen color. The 
direction to move is defined by the current turtle angle. If the 
current pen color is None, the turtle is moved the specified 
distance with no line being drawn. 

An example of this procedure is: 

Move (100)i 



MoveTo Procedure 



MoveTo draws a line from the current turtle position to the 
specified coordinates. The definition of this procedure is: 

PROCEDURE MoveTo (NxtX, NxtY: integer)) 
! Parameter i Data Type ! Description 

4. ss as as as as as ss ssb s=+ss ss bsb asssas as as as as a: as +ss ass as ss as as assess ss bs aes* as bibs as ss ae ss as be as ssssss==ss + 

I NxtX I integer i New absolute X coordinate 



I NxtY ! integer ! New absolute Y coordinate 

+ + + + 

The procedure moves the turtle from its current position to the 
specified absolute coordinates, drawing a line of the current pen 
color. If the current pen color is None, the turtle is placed at 
the specified coordinates with no line being drawn. The current 
turtle heading is not changed. 

An example of this procedure is: 

MoveTo (100,200); 
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TurtleX Function 



TurtleX is used to ascertain the current turtle X coordinate. 
The definition of this function is: 

FUNCTION TurtleX: integer; 

The function returns the current turtle X coordinate. The 
coordinate is relative to the current window and is not related 
to the view port. 

An example of this function is: 

var CurX: integer; 

curX : ■ TurtleX; 

writeln < 'The current turtle X coordinate is "»CurX:l); 



TurtleY Function 



TurtleY is used to ascertain the current turtle Y coordinate. 
The definition of this function is: 

FUNCTION TurtleY: integer; 

The function returns the current turtle Y coordinate. The 
coordinate is relative to the current window and is not related 
to the view port. 

An example of this function is: 

var CurY: integer; 

curY : = TurtleY; 

writeln ('The current turtle Y coordinate is '«CurY:l)» 
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TurtleAng Function 



TurtleAng is used to find the current angle of the turtle. The 
definition of this function is: 

FUNCTION TurtleAng: integer* 

The function returns the current angle of the turtle in degrees. 
The angle has a range of from to 359 degrees. Turtle headings 
btb: 

901 

t 

180 4- 

i 
i 

1270 

An example of this function is: 

var CurAngle: integer; 

CurAngle :■ TurtleAng; 

writeln ('The current turtle angle is '. CurAng le: 1, ' degrees'); 



ScreenBit Function 



ScreenBit tests the status of the pixel at the current turtle 
position. The definition of this function is: 

FUNCTION ScreenBit: boolean; 

The function returns the status of the pixel at the current 
turtle position. TRUE is returned if the pixel is on (white) or 
FALSE if the pixel is off (black). 

An example of this function is: 

MoveTo (100*200); 

if ScreenBit then write ('Pixel on at 100,200') 
else write ('Pixel off at 100.200'); 
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Miscellaneous Functions and Procedures 



CCLIB contains several assembly language functions and 
procedures. To use functions and procedures in this section, 
declare the function or procedure as EXTERNAL. The linker 
resolves the external declarations when CCLIB is linked with a 
program. 

The functions and procedures assume no static link on the stack 
when called. This implies defining the external functions and 
procedures at the global level. 



Miscellaneous Functions and Procedures 

Miscellaneous procedures defined in CCLIB are: 



! Procedure { Description 



ssssrssxaKcsacsscsEBacs-f 



! xGetDir ! Read volume directory 

H h 

! xPutDir I Write volume directory 



Miscellaneous functions defined in CCLIB are: 
I Function | Description 



! OSactSlt | Get active slot 

+ + 

! OSactSrv | Get active server 

+ + «. 

! OSsltType | Get device type for slot 

+ + 

! OSdevType | Get device type for given unit number 

+ + 

i OSmaxDev | Get maximum device number 



(continued on next page) 
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! Function 

■fsBsaensaei 

I OSdcmlDv 



!«+ ■■■■(■■•■•■■■■ 

I Description 



! Get DTAC0M1 driver device number 



I 0Sdcm2Dv ! Get DTAC0M2 driver device number 

+ + 

! OSdispDv I Get DISPLAY driver device number 

+ + 

i OSkybdDv ! Get KYBD driver device number 

+ + 

I OSomniDv ! Get OMNINET driver device number 



I OSprtrDv 

+ 

! OSsltDv 



! Get PRINTER driver device number 

-+ 

i Get SLOT 10 driver device number 



! OSstrmDv i Get SYSTERM driver device number 

+ + 

! OStimDv I Get TIMER driver device number 



! OSsysSize 
+ 

I OScurSP 



! Get system size 

■+ 

! Get current system SP 



i OSvrtCrt ! Returns TRUE if vertical orientation 

+ + 

pOScurKbd ! Get current keyboard record pointer 



pOScurWnd 



i Get current window record pointer 



pOSsysWnd 



! Get system window record pointer 



pOSdevNam 



i Get device name string pointer 



pOSdate ! Get system date pointer 

+ 

pOSsysVol ! Get system volume name string pointer 



pOScurVol ! Get current volume name string pointer 

+ 

pQSsysVrs ! Get OS version number string pointer 



! pOSsysDat 

+ 



! Get OS version date string pointer 



(continued on next page) 
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I Function 

+»■■■■■>■■«» 
! KeyPress 



Description 



Returns TRUE if any key is pressed 



I BrkPress 



Returns TRUE if BREAK key is pressed 



I BitFlip 



Change state of bit in integer 



! BitSet 



Set bit in integer 



! BitClear 



Clear bit in integer 



{ BitTest 



Test state of bit in integer 



! ShiftRt 



Shift integer right one bit 



I ShiftLt 



Shift integer left one bit 



I MakeByte 

+ 



Convert integer to byte 
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xGetDir Procedure 

xGetDir reads the directory of a volume. The definition of this 

procedure is: 

PROCEDURE xGetDir ( VolID: VID; 

var VolDir: directory; 

var VolBlocked: boolean; 

var VolDevNo: integer; 

var VolValid: boolean); EXTERNAL; 

■f = = = = = SS====+= = = = = XSr3SSSIB<fESBSEISSSSEISSSEISaBSBC>SB3SBSSE + 

! Parameter ! Data Type : Description J 

! VolID ! VID ! Volume name ! 

+ + + + 

I VolDir ! directory ! Volume directory ! 

+ + + + 

I VolBlocked: boolean ! Volume blocked flag ! 

+ + + + 

J VolDevNo ! integer I Volume unit number • 

+ + + + 

! VolValid ! boolean ! Volume directory valid flag ! 

+ + + + 



xPutDir Procedure 

xPutDir writes a volume directory. Use of this procedure is NOT 
recommended. The definition of this procedure is: 

PROCEDURE xPutDir (var VolDir: directory; 

VolDevNo: integer); EXTERNAL; 

! Parameter : Data Type i Description ! 

! VolDir ! directory i Volume directory ! 

+ + + + 

! VolDevNo ! integer ! Volume unit number ! 

+ + + + 
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OSactSlt Function 



OSactSlt returns the active disk slot number, 
this function is: 



The definition of 



FUNCTION OSactSlt: integer; 



EXTERNAL; 



OSactSrv Function 



OSactSrv returns the active disk server number, 
of this function is: 



The definition 



FUNCTION OSactSrv: integer; 



EXTERNAL; 



OSsltType Function 



OSsltType returns the slot type of the specified slot. The 
definition of this function is: 



FUNCTION OSsltType (slot: integer): slottype; 



EXTERNAL; 



! Parameter ! Data Type ! Description 

+=:=s==s=;s===:+s:ss:sB3S3ESCKsaB+s3S=s&=ss==ss 

I Slot ! integer ! Slot number 

+ + + 



SBXBSS5SB+ 



OSdevType Function 



OSdevType returns the slot type of the specified unit number. 
The definition of this function is: 



FUNCTION OSdevType (Unt: integer): slottype; 



EXTERNAL; 



I Parameter I Data Type ! Description 

{ Unt i integer I Unit number 

+ + + 
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OSmaxDev Function 



DSmaxDev returns the maximum device number. The definition of 
this function is. 

FUNCTION OSmaxDev. integer; EXTERNAL; 



OSdcmlOv Function 



OSdcmlDv returns the device number of DTAC0M1. The definition of 
this function is: 

FUNCTION OSdcmlDv: integer; EXTERNAL; 



0Sdcm2Dv Function 



0Sdcm2Dv returns the device number of DTAC0M2. The definition of 
this function is : 

FUNCTION 0Sdcm2Dv: integer; EXTERNAL; 



OSdispDv Function 



OSdispDv returns the device number of DISPLAY. The definition of 
this function i s: 

FUNCTION OSdispDv: integer; EXTERNAL; 



OSkybdDv Function 



OSkybdDv returns the device number of KYBD. The definition of 
th i s function is: 

FUNCTION OSkybdDv: integer; EXTERNAL; 
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OSomniDv Function 



OSomniDv returns the device number of OMNINET. The definition of 
this function is: 

FUNCTION OSomniDv: integer; EXTERNAL; 



OSprtrDv Function 



OSprtrDv returns the device number of PRINTER. The definition of 
this function is: 

FUNCTION OSprtrDv: integer; EXTERNAL; 



OSsltDv Function 



OSsltDv returns the device number of SLOTIO. The definition of 
this function is: 

FUNCTION OSsltDv: integer; EXTERNAL; 



OSstrmDv Function 



OSstrmDv returns the device number of SYSTERM. The definition of 
this function is: 

FUNCTION OSstrmDv: integer; EXTERNAL; 



OStimDv Function 



OStimDv returns the device number of TIMER. The definition of 
this function i s : 

FUNCTION OStimDv: integer; EXTERNAL; 
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OSsysSize Function 



OSsysSize returns either 256 or 512 to indicate system memory 
size. The definition of this function is: 



FUNCTION OSsysSize: integer; 



EXTERNAL; 



OScurSP Function 



OScurSP returns the current system stack pointer value. The 
definition of this function is: 



FUNCTION OScurSP: longint; 



EXTERNAL; 



OSvrtCrt Function 



OSvrtCrt returns TRUE if the display is in the vertical 
orientation or FALSE if the display is in the horizontal 
orientation. The definition of this function is: 



FUNCTION OSvrtCrt: boolean; 



EXTERNAL; 



pOScurKbd Function 



pOScurWnd returns a pointer to the current keyboard record. 
definition of this function is: 



The 



FUNCTION pOScurKbd: pointer; 



EXTERNAL; 



pOScurWnd Function 



pOScurWnd returns a pointer to the current window record. The 
definition of this function is: 



FUNCTION pOScurWnd: pointer; 



EXTERNAL; 
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pOSsysWnd Function 



pOSsysWnd returns a pointer to the specified system window 
record. The definition of this function is: 

FUNCTION pOSsysWnd (WndNbr: integer): pointer; EXTERNAL; 

I Parameter i Data Type ! Description ! 

I WndNbr i integer ! System window number ! 

+ + + + 



pOSdevNam Function 



pOSdevNam returns a pointer to the device name of the specified 
device. The definition of this function is: 

FUNCTION pOSdevNam (UntNbr: integer): pointer; EXTERNAL; 
! Parameter i Data Type I Description ! 

+ BSBESBSSBSBSBSBfiBSS5SS-f.BSBSSSSSSBBSS:3«BBSSSBBeBSBE-f.3EB:SEBSBEESEEBBSSSSSSSSSBBBSBiBBBIBISi3IEIBIBEBtS:St3B8ISSBSBfi + 

! UntNbr ! integer ! Unit number of device ! 

+ + + + 



pOSdate Function 



pOSdate returns a pointer to the system date. The definition of 
this function is: 

FUNCTION pOSdate: pointer; EXTERNAL; 



pOSsysVol Function 



pOSsysVol returns a pointer to the system volume name string. 
The definition of this function is: 

FUNCTION pOSsysVol: pointer; EXTERNAL; 
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pOScurVol Function 



pOScurVol returns a pointer to the current volume name string. 
The definition of this function is: 

FUNCTION pOScurVol: pointer; EXTERNAL; 



pOSsysVrs Function 



pOSsysVrs returns a pointer to the OS version number string. The 
definition of this function is: 

FUNCTION pOSsysVrs: pointer; EXTERNAL; 



pOSsysDat Function 



pOSsysDat returns a pointer to the OS version date string. The 
definition of this function is: 

FUNCTION pOSsysDat: pointer; EXTERNAL; 



KeyPress Function 



KeyPress returns TRUE if any key is pressed and not yet read. 
The definition of this function is: 

FUNCTION KeyPress: boolean; EXTERNAL; 



BrkPress Function 



BrkPress returns TRUE if the BREAK key has been pressed. The 

function clears the "BREAK key pressed" flag in the keyboard 
driver. The definition of this function is: 

FUNCTION BrkPress: boolean; EXTERNAL; 
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BitFlip Function 



BitFlip returns an integer with the specified bit changed. The 
definition of this function is: 

FUNCTION BitFlip (Data, BitNum: integer): integer/ EXTERNAL; 

i Parameter i Data Type ! Description i 

i Data ! integer ! Integer data i 

! BitNum ! integer i Bit number to change i 



BitSet Function 



BitSet returns an integer with the specified bit set. The 
definition of this function is: 

FUNCTION BitSet (Data, Bi tNum: integer): integer; EXTERNAL; 

! Parameter i Data Type ! Description : 

! Data j integer I Integer data ! 

+ + + + 

! BitNum ! 'integer i Bit number to set ! 

+ + + + 



BitClear Function 



BitClear returns an integer with the specified bit clear. The 
definition of this function is: 

FUNCTION BitClear (Data, BitNum: integer): integer; EXTERNAL; 

I Parameter ! Data Type ! Description 
! Data i integer i Integer data 



I BitNum ! integer ! Bit number to clear 

+ + + 
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BitTest Function 



BitTest returns TRUE if the specified bit is set, FALSE if clear. 
The definition of this function is: 

FUNCTION BitTest (Data, BitNum: integer): boolean; EXTERNAL; 

! Parameter i Data Type ! Description i 

! Data i integer ! Integer data ! 

+ + + + 

! BitNum ! integer ! Bit number to test ! 

+ + + + 



ShiftRt Function 



ShiftRt returns an integer with the specified data shifted one 
bit to the right. The definition of this function is: 

FUNCTION ShiftRt (Data: integer): integer; EXTERNAL; 

! Parameter I Data Type ! Description ! 

! Data I integer ! Integer data i 

+ + + + 



ShiftLt Function 



ShiftLt returns an integer with the specified data shifted one 
bit to the left. The definition of this function is: 

FUNCTION ShiftLt (Data: integer): integer; EXTERNAL; 

! Parameter ! Data Type ! Description i 

+ = 33 = 3= =ESSSESEa^SS4.BBB:x:SEBESSBBE=: = SBaESSSB + S=BB9ESrSSSSBSSSSrSESESS3SBeSSBSEB:aESEaBSSES = ES=r3S = :SS;S-t. 

I Data ! integer ! Integer data ! 

+ + + + 
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lia k eBy te Func t i on 

MakeByte returns a byte of data from the specified data. The 
definition of this function is: 

FUNCTION MakeByte (Data: integer): byte; EXTERNAL; 

! Parameter ! Data Type ! Description i 

+sasxEsszass^ssssasxssssxm+Bia>BanascssBB»csissszsEssaiEE4' 

I Data ! integer I Integer data 1 

+ + + + 
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The Corvus Disk Interface Unit 
ccDRVio 



The Corvus Disk Interface Unit is used to interface with the 
Corvus disk controller. This unit is used by all of the Corvus 
utilities which communicate directly with the Corvus disk 
controller. It is used for both Omninet disks and local disks. 
It can access any slot and any server. 

The ccDRVio unit USES units ccDEFN and ccLNGINT from CCLIB. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB> ccDEFN, ccLNGINT, 
<*U /CCUTIL/C2LIB} ccDRVio; 



ccDRVio Unit Constants 

Constants defined in ccDRVio are: 



I Identifier i Value ! Description 

+ s: as seas be as as «8v as asae sen: si as se+sesBai ■■«■+ caca sasssaiaBnaiB* be as as si ae as at axasBiasB 

! DrvIOversion 1 n. n ! Current unit version number 


I CDbuf_Max ! 1023 ! Corvus disk buffer length 


I DrvBlkSize ! 512 ! Disk block length 


i SndRcvMax ! 530 ! Send /receive string length 


i Low_Slot 1 1 I Minimum slot number 


t High_Slot ! 5 I Maximum slot number 


{ Low_Server I ! Minimum server number 


I High_Server ! 63 ! Maximum server number 



(continued on next page) 
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! Identifier 
! MUX 



i Value J Description 

I 64 i Server number for MUX 
' • (High_Server + 1 ) 



IBS-f 



DrMax 



7 i Maximum number of drives on 
i disk server or MUX 



ccDRVio Unit Types 

Data types defined in ccDRVio are: 



+ 


SBSSSSBSSSBB-fs 


EEBCSSSSBBn 


XSB 




=====+ 


1 
f 


Data Type i 


Description 










+■ 


= ss = ss as ae as as as ss ss as + s 


:=========== 


assr 


SKUUHUniasHKSSISZIC 


ssassKS 


== + 


1 
1 


SndRcvStr ! 


Disk contro 


11 


er command string record 








! sin: integ 


er; {send 1 


en 


gth> 








! rln; integ 


er; -Crecv 1 


en 


gth> 








! case integ 


er of 












1 : ( c : 


packed array 


CI. . SndRcvMax] of char); 








2: (b: 


array 


CI. . SndRcvMax3 of byte); 






1 
1 


CDaddr ! 


Network add 


ress record 








! SlotNo: 


byte; 




< Slot number 


> 






! Kind: 


SlotType; 




•C Type of interface in slot 


> 






i NetNo: 


byte; 




■C Network number (UNUSED) 


> 






! StationNo: 


byte; 




< Omni net station address 


> 






! DriveNo: 


byte; 




•C Disk drive number 


> 






i BlkNo: 


Long Int; 




■C Disk block number 


> 




1 
1 


PhysDrlnfo ! 


Physical disk 


drive information record 








! spt: 


integer; 


■£ 


Sectors/track 


> 






! t p c : 


integer; 


< 


Tracks/Sector 


> 






! cpd: 


integer; 


{ 


Cy 1 inders/Drive 


> 






i Capacity: 


Long Int. 


■C 


Total nmbr of blocks 


> 






! DrSize: 


DrSi zes> 


< 


Drive size 


> 






! DrType: 


DrRev; 


■C 


Drive controller revision 


> 






! PhysDr: 


boolean; 


■£ 


TRUE if a physical drive 


> 






! ROMvers: 


integer; 


■C 


ROM version 


> 






■ FirmMsg: 


stringC83< 


■C 


Firmware message 


> 






! FirmVers: 


integer; 


{ 


Firmware version number 


> 
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I Data Type i Description 

+»usns 

I DrvBlk 



I Disk block record 



+ — + + 

! case integer of 

! 1: (c: packed array CI. . DrvBlkSize] of char); 

! 2: (b: array CI. . DrvBlkSize] of byte); 

+ h h 



i CD Buf 



! Disk command block record 



i array CO. . CDbuf _Max 1 of byte; 



! Valid_Slot ! Valid slots 



I Low_Slot. . High_Slot; 



! Valid Server Valid disk servers 



I Loui_Server. . High_Server; 



! PDrArray ! Physical disk drive information table 



1 array CI. . 


DrMax3 of PhysDrlnfo; 


I SprTrks 


Spare tracks table 


i array Ci. . 


DrMax] of integer; 


! Host_Type ! 


Host device types (not currently used) 



User_Station ! i User station 


File_Server ! 1 ! File server 


Printer_Server i 2 1 Printer server 


Name_Server ! 3 i Name server 


Modem_Server 1 4 ! Modem server 


DB_Server ! 5 i Data base server 


ON__Interconnect i 6 ! Omninet interconnection 


X25_Gateuay i 7 ! X. 25 gateway 


SNA_Gateway ! 8 ! SNA gateway 
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I Data Type ! Description 



I DrRev 

+ — + 

! NoDrv 



Disk controller revision number 
+ + 

I I No controller 



««+ 



! RevA 



Rev A controller 



i RevB 



2 i Rev B controller 



RevH 



3 ! Rev H controller 



! DrSizes 



I Disk drive size 



+ — + + + + + 



OldTenMB ! i Rev A 10 megabyte disk 


FiveMB i 1 i 3 or 6 megabyte disk 


TenMB ! 2 ! 10 or 12 megabyte disk 


TwentyMB i 3 ! 18 or 20 megabyte disk 


FortyMB I 4 ! . . . . reserved 


SixtyMB ! 3 ! .... reserved 


HundredMB ! 6 ! . . . . reserved 



+ + + + 



ccDRVio Unit Variables 

Variables defined in ccDRVio are: 



+ x ====== B sim»a;+=»M»x:«K*«>s s c+»eubhihi ■■■■■■■■ 

! Variable ! Data Type i Description 

! Spares ! SprTrks i Spare tracks table 



■ 3ESE2ZSS + 

I 
I 
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ccDRVio Unit Functions and Procedures 
Procedures defined in ccDRVio are: 



I Procedure J Description 

I ccDRVioInit ! Unit initialization 






I InitSlot 



! Initialize network address record 



• Drvlnit I Get number of drives and physical disk 
! ! information table 



i CDsend 



! Send disk command to controller 



I CDrecv 



I Receive data from controller 

-+ 



Functions defined in ccDRVio are: 



+SESSSSBSZSC3Z+S: 

I Function 



I CDslotlnfo 



! CDbootlnfo 



! CDslot 



I CDserver 



CDread 



! CDuirite 

+ 



Description 
Get slot type 






Get boot slot number, type, and disk 
server number 



Verify that Corvus disk is in slot 



Verify disk server number 



Read data from disk 



Write data to disk 
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ccDRVioInit Procedure 



ccDRVioInit initializes the ccDRVio unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccDRVioInit; 

An example of this procedure is: 

ccDRVioInit. 



InitSlot Procedure 

InitSlot initializes a network address record with the values for 
the boot slot and boot disk server. The definition of this 
procedure is: 

PROCEDURE InitSlot (VAR NetLoc: CDaddr); 

! Parameter ! Data Type ! Description '< 

! NetLoc ! CDaddr ! Network address of disk drive ! 
+ + + + 

The procedure initializes the specified network address record 
with the following values: 

SlotNo - boot slot number 
Kind - boot slot type 
StationNo - boot disk server number 
NetNo - O 
DriveNo - 1 
BlkNo - O 

An example of this procedure is: 

var curAddr: CDaddr; 

InitSlot (curAddr)f 
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Drvlnit Procedure 



Drvlnit returns the number of drives and physical disk drive 
information for the specified disk drive controller. The 
definition of this procedure is: 

PROCEDURE Drvlnit (NetLoc: CDaddr; 

VAR NumDrives: integer; 
VAR PhysDrives: PDrArray); 

! Parameter i Data Type ! Description 



1 


NetLoc ! 


CDaddr 


1 Network address of disk drive 


1 
1 


NumDrives 1 


integer 


1 Number of drives on controller 


1 


PhysDrives ! 


PDrArray 


1 Physical disk drive info table 



The procedure sets integer variable NumDrives to the number of 
disk drives at network address NetLoc. The physical disk drive 
information table. PhysDrives. is initialized for the number of 
drives on the disk controller. 

An example of this procedure is: 

var curAddr: CDaddri curDrvs: integer,- PDtable: PDrArray; 
i: integer; 

Drvlnit (curDrvs. PDtable); 

for i := 1 to curDrvs do begin 

■C . . . . do something for each drive on controller > 

end; -Gfor> 
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CDsend Procedure 



CDsend sends the specified disk command to the disk drive. The 
definition of this procedure is: 

PROCEDURE CDsend (NetLoc: CDaddr; VAR DtaStr: SndRcvStr); 

! Parameter I Data Type ! Description ! 

I NetLoc ! CDaddr ! Network address of disk drive ! 
+ + + + 

I DtaStr I SndRcvStr ! Disk command buffer ! 

+ + + + 

The procedure sends data in DtaStr to the disk drive at location 
NetLoc. DtaStr. sin bytes are sent to the disk drive. Normally, 
procedure CDrecv is executed directly after a CDsend in order to 
receive data back from the disk drive. 

An example of this procedure is: 

var curAddr: CDaddr; curCmd: SndRcvStr; 

with curCmd do begin 

sin :■ nn; -C set send length > 
rln :» nn; -C set recv length > 
•C ...set disk controller command > 
•C ...move data to buffer, if needed > 
CDsend < cur Addr. curCmd > ; 
CDrecv (curAddr. curCmd ) ; 
■C ...check for successful operation > 
end; {with curCmd do> 
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COrecv Procedure 



CDrecv receives disk data from the disk drive. The definition of 
this procedure is: 

PROCEDURE CDrecv (NetLoc: CDaddr; VAR DtaStr: SndRcvStr); 

I Parameter i Data Type i Description ! 

I NetLoc ! CDaddr i Network address of disk drive ! 

+ + + + 

! DtaStr I SndRcvStr ! Disk command buffer ! 

+ + + + 

The procedure receives data in DtaStr from the disk drive at 
location NetLoc. DtaStr. rln bytes are received from the disk 
drive. Normally, procedure CDrecv is executed directly after a 
CDsend in order to receive data back from the disk drive. 

An example of this procedure is: 

var curAddr: CDaddr; curCmd: SndRcvStr; 

with curCmd do begin 

sin := nn; < set send length > 
rln : * nn; < set recv length > 
•C ...set disk controller command > 
■C ...move data to buffer, if needed > 
CDsend ( curAddri curCmd > ; 
CDrecv ( cur Addr, curCmd ) ; 
< ...check for successful operation > 
end; {with curCmd do> 
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CDslotlnfo Function 



CDslotlnfo returns the slot type for the specified slot number. 

The definition of this function is: 

-UNCTION CDslotlnfo (SlotNum: integer): SlotType; 

! Parameter ! Data Type i Description i 

+===XBSSSSB&4ssssS==C3SBaBS>f3XSSE»SSS8aSSSBBaBSB»BiaBKBaKK + 

! SlotNum ! integer ! Slot number i 

+ + + + 

this function returns the slot type for the specified slot 
number. Slot types are: 

4*=s:ssss8BB3=BSBEBBss:si4'=s=;asseaBBeBesaBH-asaBs;BSBBS5BaBaKaB8BBEacaisaEai3:aBaiaiasaB3iaeBiBSSBaBBiai«BBae-f 

! Identifier ! Value I Description 
! NoDisk ! ! No disk 



! LocalDisk i 1 ! Corvus local disk 

+ + + 

! OmninetDisk i 2 ! Corvus Omninet disk server 



i FlpyCBDisk ! 3 i Corvus 8" SSSD floppy disk 

+ + + 

! FlpyC5Disk ! 4 i . . . reserved 



i FlpyASDisk i 5 i Apple 5" floppy disk 

+ + + 

! BankDisk i 6 i ...reserved 



! FlpyFBDisk ! 7 ! Corvus 8" DSDD floppy disk 

+ + + 

i FlpyF5Disk i 8 i Corvus 5" DSDD floppy disk 



! FlpyF3Disk I 9 I . . . reserved 

+ + + 
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An example of this function is: 

vaT i: integer; Stype: SlotType; 



for i := Lou_Slot to High_Slot do begin 
Stype := CDslotlnfo <i); 
write ('Slot '» n: li ' contains ' ) ; 
case Stype of 

NoDisk 

LocalDisk 

OmninetDisk 

FlpyC8Disk 

FlpyC5Disk 

FlpyA5Disk 

FlpyFBDisk 

FlpyF5Disk 

FlpyF3Disk 

BankDisk 

end 

end; -Cfor> 



write In 
write In 
write In 
write In 
write In 
write In 
write In 
wr i t e 1 n 
write In 
writeln 



( 'no disk '); 

('a Corvus local disk'); 

('a Corvus Omninet disk'); 

( 'a Corvus 8" SSSD floppy 

( 'no disk '); 

( 'an Apple 5" 

( 'a Corvus 8" 

( 'a Corvus 5" 

( 'no disk '); 

( 'no disk '); 



disk '); 



floppy disk 
DSDD floppy 
OSDD floppy 



disk 
disk 



); 
); 



■Cease Stype of> 



Copyright 1983 Corvus Systems* Inc. 



September 1. 1983 



ccDRVio 
Page 14-12 



Corvui Concept Pascal System Library 
Corvus Disk Interface Unit 



CDbootlnfo Function 



CDbootlnfo returns the boot slot number, boot disk %9Tver number, 
and the boot slot type. The definition of this function is: 

FUNCTION CDbootlnfo ( VAR SlotNum, SrvrNum: integer): SlotType; 

! Parameter ! Data Type ! Description ! 

i SlotNum { integer ! Slot number ! 



I SrvrNum ! integer 

+ + 



I Disk server number 

.+ 



This function returns the boot slot type. Integer variable 
SlotNum is set to the boot slot number. Integer variable SrvrNum 
is set to the boot disk server number. Boot slot types are: 






.«.===.==+ 



! Identifier i Value 
! NoDisk ! O 



Description 

BSBXsaBBaBBEBBBIBEBBa 

No disk 



! LocalDisk 



Corvus local disk 



! OmninetDisk 



Corvus Omninet disk server 



! FlpyC8Disk 



Corvus B" SSSD floppy disk 



I FlpyC5Disk 



reserved 



! FlpyA5Disk 



Apple 5" floppy disk 



! BankDisk 



. . . reserved 



! FlpyFBDisk 



Corvus 8" DSDD floppy disk 



! FlpyF5Disk 



Corvus 5" DSDD floppy disk 



! FlpyF3Disk 



. . reserved 



An example of this function is: 

var Bslot,Bsrvr: integer; Btype: SlotType; 
Btype :- CDbootlnfo (Bslot, Bsrvr ) ; 
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CDs lot Func t i on 

CDslot return a boolean value indicating if the specified slot 
has access to a Corvus disk. The definition of this function is: 

FUNCTION CDslot (SlotNum: integer): boolean; 

+BB>3l>BBBSB^BISBSI»BaBUI+Kn«8B«S«BISIMBBSB9ESBSSeSSB-f 

I Parameter I Data Type i Description 

I SlotNum ! integer ! Slot number ! 

+ + + + 

This function returns TRUE if the specifed slot contains a local 
disk drive or an Omninet disk drive. FALSE is returned neither 
is present in the slot. 

An example of this function is: 

if CDslot (5) then luriteln ('Omninet disk available') 

else luriteln ('Omninet disk not available'); 



CDserver Function 



CDserver return a boolean value indicating if the specified 
server is valid. The definition of this function is: 

FUNCTION CDserver (Server: integer): boolean; 

! Parameter I Data Type ! Description ! 

! Server ! integer I Disk server number ! 

+ + + + 

This function returns TRUE if the specifed server is valid. 
FALSE is returned if the specified server is not valid. 
Currently, this function is not operational. 
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CDread Function 

CDread reads data from the disk drive. The definition of this 
function is: 

FUNCTION CDread (NetLoc: CDaddr; 

VAR Buf: CD_Buf; Len: integer): integer. 

! Parameter ! Data Type i Description ! 

! NetLoc ! CDaddr ! Network address of disk drive i 

+ + + + 

i Buf ! CD_Buf ! Data that is read ! 

+ + + + 

! Len i integer i Number of bytes to read ! 

+ + + + 

This function returns the disk status code. NetLoc contains the 
disk drive number and starting block number along with the other 
network address information. Len bytes of data is placed in Buf. 

An example of this function is: 

var IOst: integer; curAddr: NetLoc; curBuff: CD_Buf; 

IOst := CDread (curAddr, curBuff . 512) ; 
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CDwrite Function 



CDwrite writes data to the disk. The definition of this function 
is: 

FUNCTION CDwrite (NetLoc: CDaddr; 

VAR Buf: CDJBuf; Len: integer): integer; 

! Parameter I Data Type ! Description 

i NetLoc I CDaddr i Network address of disk drive 



! Buf I CD_Buf ! Data to be written 

+ + + 

! Len ! integer i Number of bytes to write 

+ + + + 

This function returns the disk status code. NetLoc contains the 
disk drive number and starting block number along with the other 
network address information. Len bytes of data is written to the 
disk from Buf. 

An example of this function is: 

var IOst: integer; curAddr: NetLoc; curBuff: CD_Buf; 

IDst := CDwrite ( curAddr. curBuff , 512) ; 
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The Corvus Disk Pipes Interface Unit 
ccPIPES 



The Corvus Disk Pipes Interface Unit is used to interface with 
the Corvus disk controller pipe functions. 

The ccPIPES unit USES units ccDEFN and ccLNGINT from CCLIB. It 
also USES unit ccDRVio from C2LIB. 

The unit is included in user software by declaring: 

USES -{*U /CCUT1L/CCL 1B> ccDEFN, ccLNGINT, 
■C*U /CCUTIL/C2LIB> ccDRVio, ccPIPES; 



ccPIPES Unit Constants 

Constants defined in ccPIPES are: 



Pipe Command Status Codes 

I Identifier ! Value ! Description ! 

! PipeOk I O ! Successful pipes command ! 

+ + + + 

! PipeEmpty I -8 ! Tried to read an empty pipe ! 

+ + + ■ «- 

! PipeNotOpen ! -9 ! Pipe not open for read or write ! 

+ + + + 

! Pipef-'ull i -10 ! Tried to write to a full pipe ! 

+ + + + 

I PipeOpErr ! -11 I Tried to open an open pipe ! 

+ + + + 

! PipeNotThere ! -12 i Pipe does not exist ! 

+ + + H 

! PipeNoRoom ! -13 ! Pipe data structures are full : 

+ h + + 

! PipeBadCmd ! -14 ! Invalid pipes command ! 

+ + + + 



(continued on next page) 
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Pipe Command Return Codes (continued) 






I Identifier ! Value ! Description 

I Pi pesNot Initted ! -15 i Pipes area not initialized 



PipeDf kEr r 



■r'55 ! 



An error code lest than -127 is a fatal disk error 



! Identifier 






PipesVersion 



Value ! Description 



n. n I Current unit version number 



PnameL.pn 



8 ! Pipe name length 

+ 



tcPIPP.S Unit Type*. 

Data types defined in crPIPEB arc: 

! Dats Type ! Description ! 

! PNameStr ! Pipe name string ! 

+ — + + + 

I str ing LPnameLen 3 ; ,' 

+ + 



ccPIPES Unit Variables 

Variables defined in ccPIPES are: 

! Variable ! Data Type ! Description ! 

! PipeDebug ! boolean ! Pipes debug switch ! 
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ccPIPES Unit Functions and Procedures 
Procedures defined in ccPIPES are: 



I Procedure ! Description 

I ccPIPEinit { Unit initialization 









Functions defined in ccPIPES are: 






! Function 
! PipeStatus 






! PipeOpRd 



! PipeOpWr 

+ 



I PipeRead 



! PipeWrite 



! PipeCIRd 

+ 



! PippCU.h 

+ 



! PipePuTyo 

H 

! Pipeslnit 



Description 

Get status of pipes area 



Open pipe for reading 



Open pipe for writing 



Read data from pipe 



Write data to pipe 
Close pipe for reading 



Close pipe for writing 



Purge pipe 



Initialize pipes area on dit>k 
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ccPIPEinit Procedure 



ccPIPEinit initializes the ccPIPES unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccPIPEinit (NetLoc: CDaddr); 

! Parameter ! Data Type? ! Description ! 

! NetLoc ! CDaddr ! Network location record ! 



An example of this procedure is: 
var PnetLoc: CDaddr; 
InitSlot (PnetLoc); 
ccPIPEinit (PnetLoc); 



Pi peCtdtui; Function 



PipeStatus reads the pipe name table and pipe pointer table 
disk. The definition of this function is: 

FUNCTION PipeStatus < VAR Narnes.Ptrs: DrvBlk): integer; 



from 












Parameter- 



Names 



Ptrs 



Data Type 



! Description 



DrvBlk ! Pipe name table 






DrvBlk 



i Pipe pointer table 



This function returns the status of the pipe command. 
An example of this function is: 

var Pstat: integer; Pnamesi Pp trs: DrvBlk; 

Pstat :- PipeStatus (Pnamesi Pp trs ) ; 
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Format of the Pipe name table is 8 bytes per Pipe (64 Pipes). 
The first name is WOOFWOOF and the last name is FOOWFOOW. 

The Pipe pointer table has 64 entries, each 8 bytes long with the 
following format: 

One byte Pipe number 

Three bytes of starting (512 byte) block number 
Three bytes of ending (512 byte) block number 
One byte of Pipe status code 

Pipe status codes are: 






Dei 
1 



Hex ! Description 
OJ ! Open for write, Pipe empty 









0=' ! Open fo 



r read, Pipe empty 



12L) 



80 



Closed 



129 



81 ! Open fo : r write 



130 



8c 1 ! Open fo : r read 
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PipeOpRd Function 



PipeQpRd open a pipe for reading. The definition of this 

function is: 

FUNCTION PipeOpRd (PName: PNameStr): integer; 

! Parameter ! Data Type i Description ! 

! PName ! PNameStr ! Pipe name to open ! 

+ + + + 

This function returns the pipe number if the specified pipe 
existr and is not already open. Otherwise* a negative error code 

is returned. 

An example of this function is: 

var Pnmbr: integer, Pname: PNamcStr; 

Pnamo : ■- 'KLLP I PF_ ' ; 

Pnmbr := PipeOpRd (Pname); 

if Pnmbv > 

then uiriti'ln ('Pipe ', Pname, ' L ' , Pnmbr : 1 , ' J opened') 
else uiriteln ('Unable to open pipe ', Pname); 
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PipeOpWr Function 



PipeOpWr opens a pipe for writingi assigns the pipe a name, and 
assigns a number to the pipe. The definition of this function 
is: 

FUNCTION PipeOpWr (PName: PNameStr): integer; 

! Parameter ! Data Type ! Description : 

! PName ! PNameStr ! Pipe name to open ! 

+ + + + 

This function returns the assigned pipe number if successful. 
Otherwise! a negative error code is returned. 

An example of this function is: 

var Pnmbr: integer; Pname: PNameStr; 

Pname : - 'KLLPIPE'; 

Pnmbr :~ PipeOpWr (Pname); 

if Pnmbr .> 

then writeln ('Pipe ', Pname, ' I', Pnmbr: 1, ' D opened') 
else writeln ('Unable to open pipe ', Pname); 
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PipeRead Function 



PipeRead reads a block of data from the specified pipe. The 
definition of this function is: 

FUNCTION PipeRead (NPipe: integer; VAR Info: DrvBlk): integer; 

! Parameter ! Data Type ! Description ! 

! NPipe ! integer ! Pipe number for read ! 

+ + + + 

! Info ! DrvBlk ! Data buffer for read ! 

+ + H + 

This function returns the number of bytes written if the read is 
successful. Otherwise, a negative error code is returned. 
PipeRead is repeated for each block to be read from the pipe. 

An example of this function is: 

Vcir Pstat.Pnmbr: integer; Pdata: DrvBlk; 

Pstat :- PipeRead (Pnmbr, Pdata > ; 
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PipeWvite Function 

PipeWrite writes a block of data to the specified pipe. The 
definition of this function is: 

FUNCTION PipeWrite (NPipe.WLen: integer; 

VAR Info: DvvBlk): integer; 

! Parameter ! Data Type i Description ! 

! NPipe ! integer ! Pipe number for write ! 

+ + + + 

! WLen ! integer ! Length of data to write ! 

+ + + + 

! Info ! DrvBIk ! Data buffer for write 

+ + + + 

This function returns the number of bytes written if the write is 
successful. Otherwise) a negative error code is returned. 
PipeWrite is repeated for each block to be written to the pipe. 

An example of this function is: 

v«r Pstst- Pnmbr : integer; Pdata: DrvBlk; 

Pstat : =■ PipeWrite ( Pnmbr , 5iy, Pdata ) ; 
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PipeCIRd Function 

PipeCIRd closes the specified pipe for reading. The definition 
of this function is: 

FUNCTION PipeCIRd (NPipe: integer): integer; 

! Parameter ! Data Type ! Description ! 

INPipe lintegpr IPipenumbertoclose ! 

+ + + + 

This function returns the status of the pipe command. If the 
pipe is empty- the pipe is deletrd. 

An example of this function is: 

v*r Pstc-it/Pnmhr: integer; 

P?;tat := PipeCIRd (Pnmbr); 



PipeOWr Function 



PipeClWr closes the specified pipe for writing. The definition 
of this function is: 

FUNCTION PipeClWr (NPipe: integer): integer; 

! Parameter ! Data "Type i Description ! 

! NPipe ! integer ! Pipe number to close ! 

+ + + + 

This function returns the status of the pipe command. Once a 
pipe has been closed for writing, no additional data can be 
mr i tten to it. 

An example of this function is: 

var Pstfit- Pnmbr : integer; 

Pstat :- PipeClWr (Pnmbr); 
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PipePurge I- unction 



PipePurge purges the specified pipe. The definition of 

function is: 

FUNCTION PipePurge (NPipe: integer), integer; 

I Parameter ! Data Type ! Description 

> NPipe ! integer ! pipe number to purge 



this 









"Vhis function returns the status of the pipe command. 
An example of this function is: 

vfir Pstc-'t. Pnmbr : integer; 

Pstat : ■- PipePurge (Pnmbr); 



Pipeslnit Function 



Pipeslnit initializes the pipes data structures on the disk. The 
definition of this function is: 

FUNCTION Pipeslnit ( Bad dr , B s i z e : Longlnt): integer; 

! Parameter ! Data Type ! Description ! 

I tladdr ! Longlnt ! Pipes area base block number ! 



! B s i z e 



! Longlnt 



! Pipes area number of block! 

-+ 



This function returns the status of the pipe command. 
An example of this function is: 

var Pstflt: integer; Paddr, Psize: Longlnt; 



Paddr 
Psi ze 
Pstat 



- lOOOO; 

-■ 10?4; 

=■ Pipeslnit (Paddr. Psi ze ) ; 
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The Corvus Disk Semaphores Interface Unit 

ccSEMA4 



The Corvus Disk Semaphores Interface Unit is used to interface 
with the Corvus disk controller semaphore functions. 

The ccSEMA4 unit USES unit ccDEFN from CCLIB. It also USES unit 
ccDRVio from C2LIB. 

The unit is included in user software by declaring: 

USES -C*U /CCUTIL/CCLIB3- ccDEFN, 

<*U /CCUTIL/C2LIB> ccDRVio, ccSEMA4; 



ccSEMA4 Unit Constants 

Constants defined in ccSEMA4 are: 



Semaphore Command Status Codes 

! Identifier : Value ! Description 

! Sema4Upv ! n. n ! Current unit version number 



! SemWasBet i 128 I Prior state was locked 

+ + + 

I SemNotSet ! O ! Prior state was unlocked 



! SemFuJl ! 253 ! Semaphore table is full 

I I ! (32 active semaphores) 



! SemDskErr ! -255 ! Disk error during write thru 

+ + + 

! An error code less than -127 is a fatal disk error 

+ 
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ccSEMA4 Unit Types 

Data types defined in ccSEMA4 are: 

•f = B = SSSrSSSSS-fE88S3SSa3B8B»BBBBBISBI 

! Data Type I Description 

I SemStr ! Semaphore name string 



BSE=ZBr==?=M- 



E=BBffaSBEBK«s£3aBW2:asss=:zEaE£r= + 



! string[83; 

+ — + + 

! SemKeys ! Semaphore key 



! packed array CI.. 83 of char; 

+ h + 

! SemKeyList ! Semaphore key array record 



case- integer of 

1: (skey: avra^ CI.. 323 of SemKeys); 
2: (sbyt: array CI.. 2563 of byte); 



ccSEMA4 Unit Variables 

Variables defined in ccSEMA4 are: 

! Variable ! Data Type ! Description ! 

! Sema4debug ! boolean ! Semaphores debug switch ! 
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ccSEMA4 Unit Functions and Procedures 

Procedures defined in ccSEMA4 are: 

I Procedure I Description ! 

+== = = ========s +====^K==x==s==ssEss=ss:=ssmBaiEKaaBaaeBaeaiBaESCKasE"'~ 

! ccSEMA4iriit ! Unit initialization ! 

+ + ; + 

Functions defined in ccSEMA4 are: 

+ = = = — =ssr=:'s:= = = =s=r + sssssssesssbss; sissasais: as asssssscssasssss as ss ssajsBSBasaiaias as as as as as as as as asses^sE.-)- 

! Function ! Description ! 

! SemLork ! Lock semaphore : 

+ + + 

! SemUn]ock ! Unlock semaphore : 

+ + + 

! SemCleer ! Clear all semaphores ! 

+ + + 

! SemStatus. ! Get semaphore status i 

+ + + 



ccSEMA^ini i; Proc edure 

ccSEMA4init initializes the ccSEMA4 unit. This procedure must be 
called before any other functions or procedures in this unit are 
called. The definition of this procedure is: 

PROCEDURE ccSEMA4init <NetLoc: CDaddr); 

! Parameter ! Data Type ! Description 

! NetLoc ! CDaddr ! Network location record ! 

An example of this procedure is: 
var SnetLoc: CDaddr; 
InitSlot (BnetLoc); 
ccSEMA4init (SnetLoc); 
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SemLock Function 



SemLock locks the specified semaphore. The definition of this 
function is: 

FUNCTION SemLock (Key: SemStr): integer; 



■ Parameter ! Data Type ! Description 

! Key ! SemStr ! Semaphore name to lock 

+ + + 



BS&SSISSB^-f- 






This function returns one of the following codes: 



S+EXSiatSSBiSBSZ-f-SSSBiSSBSESSiBIBSSSSSSa 

! Value ! Description 






! Identifier 

! SemWasSet ! 128 ! Semaphore already locked 



I SemNotSet 

+ 

! SemFull 



! O ! Semaphore successfully locked 

-H + 

! 253 ! Semaphore table is full/ 
! ! semaphore not locked 



! SemDskErr i -255 I Disk error 

+ + + 

! An error code less than -127 is a fatal disk error 

+ 

An example of this function is: 

var Sstat: integer; Sname: SemStr; 

Sname :- 'KLL'; 

Sstat := SpmLot k (Sname); 

case Sstat of 

SemWasSet 

SemNotSet 
SemFul 1 

otherwi se 



uiriteln ('Semaphore already locked'); 

uriteln ('Semaphore successfully locked'); 

writeln ('Semaphore table is full'); 

uriteln ('Disk error'); 



end; {cast} 
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SemUnlock Function 



SemUnlock unlocks the specified semaphore. The definition of 
this f unc t i on is: 

FUNCTION SemUnlock (Key: SemStr): integer; 



■ Parameter ! Data Type ! Description ! 

! Key ! SemStr I Semaphore name to unlock ! 
+ + + + 

This function returns one of the following codes: 



! Identifier ! Value ! Description 

! SemWasbet ! 128 ! Semaphore successfully unlocked 



SemNotSet 



O ! Semaphore was not locked 
1- 

-255 ! Disk error 



i BernDskEirr 



! An error code less than -127 is a fatal disk error 



An example of thit function is: 

var Bstt-:t: integer; Sname: SemStr; 

Sname : - 'Kl L '; 

Sstat :- SemUnlock (Sname); 

case Sst&t of 



SemUasSe t 
SemNotbet 

otherwise 



writeln ('Semaphore successfully unlocked')- 
writeln ('Semaphore was not locked'); 
writeln ('Disk error'); 



end; {case} 
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SemClear Funtti on 

SemClear clears the semaphore table. 

FUNCTION SemClear: integer; 
This function returns one of the following codes: 

! Identifier ! Value [Description 

! . . . . ! O ! Semaphore table cleared ! 

+ (. + + 

! An error code less than -127 is a fatal disk error ! 

+ + 

An example of this function is: 

vcv S s t <r: t . i n t e g c r ; 

Setat : — SemClear; 

if Sstat - O 

then uiriteln ('Semaphore table cleared') 

else uiriteln ('Semaphore table clear failed'); 



September 1, 1983 Copyright 1983 Corvus Systems, lnc 



Corvus Concept Pascal System Library ccSEMA4 

Corvus Disk Semaphores Interface Unit Page 16-7 

SemStatus Function 

SemStatus returns the names of locked semaphores. The definition 
of this function is: 

FUNCTION SemStatus (VAR KeyBuf: SemKeyList): integer; 

! Parameter ! Data Type ! Description ! 

I KeyBuf ! SemKeyList ! Semaphore name table ! 

+ + + + 

This function returns one of the following codes: 

+=== =====:= = = =:i:= === + = = = ====+ ====== === = = === = ===============:==■ = + 

I Identifier I Value ! Description ! 

! . . . . ! ! Semaphore table read successful ! 

+ + + + 

! . . . . i . -2 i Unable to enter PREP mode ! 

! ! ! (could not find DIAG. DATA) 

4 + h + 

! An error code less than -127 is a fatal disk error ! 

+ + 

An example of this function is: 

var Sstat: integer; Skeys: SemKeyList; 
Sstat :- SemStatus (Skeys); 
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READER'S COMMENTS 

By responding with your comments. Corvus Systems can develop 
better documentation to meet your needs. 

Did you find errors in this manual? If soi please specify by 
page. 



Did you find this manual understandable! useable, and 
well-organized? Please make suggestions for improvements. 



Is there sufficient documentation for use of the products 
described in this manual. If not, what material is missing and 
inhere should it be placed? 



Please indicate the type of user/reader that you most nearly 
represent. 

Software engineer 

Hardware engineer 

System integration 

Engineering management 

Non-technical 



Name Date 

Organization 

Street 



cit Y State Zip 



Please return this form to: Corvus CONCEPT Support Group 

Corvus Systems. Inc. 
2029 O'Toole Avenue 
San Jose, California 95131 
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